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إعداد 


فتحی أبو زيد 


الكم جهو تو وتكنولوجيا المغلومات والإتضالات 
# المحتويات # 
|١ 7 :‏ البيانات 5a”‏ . 


أتواع البياتات وعم ر1 ESE . “9a4‏ 
| الثوابت والمتغيرات Constants & Variab1es”‏ . 
شروط تسمية الثوابت والمتغيرات . 
الإعلان عن الثوابت . : 
تحديد نطاق المتغيرات والثوابت . 
]| المتغيرات 721121157" . 
جملة التخصيص ٠ “Assignment”‏ 
أولويات تنفيذ العمليات الحسابية . 
الأخطاء “Errors”‏ . 3 
| ع ب ج If... Then‏ _ 


(<(Wi SSE 


For ... Next a الث 5 الثالت‎ 
Do While استخدام جملة‎ 


التكرار والإجراءات الإجراءات Procedures”‏ „ 

“Looping ©‏ الإعلان عن الإجراء 81" . 

. “Function” الإعلان عن الدالة‎ | Procedures” 

اختبارات عامة ( أبريل ) » (۳) ؛ (4) 
| تمهيد . 
الذه 1 الرايع | االو الإلكترونية للتعدى . 
التعدى الإلكترونى أشكال التعدى | الإلكترونى . 
”و اباوج هار کی تحمى نفس من التعدى الالكتروتى ؟ 
| مواقف حيتية . 
1 اختبارات عامة ( مايو  )‏ (5) :(5) : 
مراجعة ليلة الامتحان . | NER‏ 


امتحانات المحافظات . 
الإجابات النموذجية لكافة أسئلة الكتاب والامتحاتات ‏ 


a‏ الفصل الدراسى الثانى 1 ا 


يعدد أنواع البيانات المختلفة ”” 
يختار نوع البيان ” “ المناسب . 
يعان عن المتغيرات ” 4 

# يعلن عن الثوابت ”600814119“ . 

يوضح مفهوم جملة التخصيص . 

يخصص قيم للمتغيرات ” “. 

يحدد أولويات تنفيذ العمليات الجسابية . 


| | الفصل الدراسى الثانى 


اكه جهو تو وتكنولؤجيا المغلومات والإتصالات 


الموضوع الأ ڃر هه 
عات > 


* نفهيك : 
# تعلمنا سابقاً استخدام لغة 13351.7[166 اي۷ فى إعداد واجهة البرنامج . 
- وكيفية إدراج أدوات التحكم وضبط خصائصها من خلال نافذة الخصائص فى وضع 
ال 
- التعامل مع نافذة الكود وإجراءآت الأحداث ٤ں‏ ةءعهإ۲ ٤٣ء۷٤‏ وإدخال أنواع مختلفة 
من القيم . 
* واجهة مستخدم البرنامج التالية تمكن المستخدم من إدخال أنواع مختلفة من البيانات : 
مح ووو ٠‏ ل 


الاسم ياسمين تافر 
ناريج الميلاد 70-17 
النوع ‏ 0 ذكر © اتی 


عدد أفراد الأسرة 5 


نوع البيان ( نوع القيمة ) 


بیان حرفى ( قيمة کي 


تاريخ الميلاد ل cee‏ | بيان تاريخ 
النوع أنثى | بيان منطقى ( قيمة منطقية ) | 
عدد أقراد الأسرة 5 | بيان رقمى ( رقمية صحيحة ) ا 
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البيانات Data‏ جوتو وتكنولوجي د 3 
إييوللي * عند إدخال البيانات يتم تخزينها فى الذاكرة الكمبيوتر (124071) . 
# للتعامل مع البيانات ( ممعالجة البيانات ) فئ ذاكرة الكمبيوتر (1*4101) » لابد 
أن يجدد لها اسم معين : 
> وكل بيان يحتاج إلى مساحة تخزين معينة .بحسب نوعه ٠‏ 


أنواع البيانات Data Types‏ 
»* تتعامل لغة 8351.164 150031/ مع العديد من أنواع البيانات التى يتم إدخالها من 
مستخدم البرنامج أو البيانات الناتجة من تنفيذ أوامر وتعليمات البرنامج التى يتم تخزّينها فى 
ذاكرة الكمبيوتر المؤقتة (/1242) . من أنواع البيانات التى تتعامل معها لغة 8./4// : 


3 البيانات الرقمية ( (Numeric Data Types‏ 4 
بيانات رقمية صحيحة بيانات رقمية غير صحيحة / عشرية 
(Nonintegral Numeric Types) (integeral Numeric Types)‏ 

يتم الإعلان عنها ب : ويعلن عتها ب : 


البيانات الحرفية ) Types‏ 6131216110212 ) 


- يتم الإعلان عنها بالآتى : String - Char‏ 


البيانات المتنوعة ( Miscellaneous Data Types‏ ) 
- يتم الإعلان عنها بالآتى : Object - Date - Boolean‏ 
- البياتات المتنوعة: لا تندرج تحت اتصنيف البيانات الرقمية أو الحرفية . 
-بيتم الإعلان عن :بيانات التاريخ والوقت ب:. 821 
- يتم االإعلان عن.البيانات المنطقية اب :80018210 ؛:وتأخذ القيمة 7006 أو 2156 
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الكميهوتقو وتكنولوجيا المغلومات والاتصالات 


- كل تصتيقف من أنواع البيانات: ( 6م137 12242 ) له أكثر من نوع . 
3 كل نوع يشغل حيز تخزين معين (عدد بايت ه٤‏ ر8) فى ذاكرة الكمبيوتر - 
] مثال | البيان من النوخ **1660©8» يشغل 4 بايت 183:66“ من حجم الذاكرة . 


- مدى (3096): كل نوع من البيانات له حد أذتى من القيم وحد أقصئ يظلق عليها 
مدى . 

[ مثان | البيان من النوع ”83/46“ الحد الأدنى له القيمة 0 والحد الأقصى 255 . 

- إذا المدى هو حدود القيم المتاح تخزينها فى كل متغير حسب نوعه . 

#حظ: المبرمج الجيد هو الذى يُحسن ترشيد المساحة التخزينية فى ذاكرة الكمبيوتر . 


الثوابت والمتفيرات Constants & Variables‏ 
1 :ج رص 
السوايت Constants‏ 


٭ الثوابت عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر ”8۸“ . 
* عند الإعلان عن الثابت لابد أن نحدد له اسم ونوع وقيمة . 
> قيمة الثابت (ثابتة) لا تتغير أثناء سير البرنامج يعكس قيمة المتغير . 
سل مثال ) من الثوابت الرياضية : قيمة (إط).: 
- من ثوايت الفيزياء : قيمة عجلة الجاذبية الأرضية.» وسرعة الضوء والصوت . 


شروط تسمية الثوابت والمتغيرات 


* عند اختيار أسماء الثوابت والمتغيرات يفضل أن يكون الاسم معبراً عن الغرض منه بحيث : 

. )_ ( أن يبدأ اسم الثابت أو اسم المتغير بحرف أو علامة الشزطة السفلى‎ )١( 

(۲) ألا يحتوى الاسم على أى من الرمز أو العلامة الخاصة مثل ( المسافة » النقطة وعلامة 
الاستفهام »:وعلامة التعجب » والشرطة ء وعلامة الجمع ( 7 و , *, - ,+ ,. ) ... الخ 
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البيانات Data‏ الكمديوتر وتكنولوجيا المغلومات والإتصالات 


(۳) ألا تستخدم الكلمات المحجوزة للغة ۷8.۸61 فى تسمية الثوابت والمتغيرات » 


الكلمات المحجوزة مثل : 


Double )‏ , ومتضكأد., مايا , Single , As‏ ..( 
لاحظ: .يجب اختيار نوع بيان يتناسب مع طبيعة البيانات التى سيتم تخزينها فيه . 


- يمكن أن يتكون اسم الثابت أو :اسم المتغير من جروف وأرقام وعلامة ( ) . 


Constants declaration  تباوسلا الاعلان عن‎ 


٭# عملية إعطاء أسماء للخلايا التى تحمل قيم ثابتة » تسمى إعلان الثوابت . 
- يستخدم.الأمر 0154© فى الإعلان عن الثوابت فى لغة 1/8.04 كالتالى : 


0 ae As 0 Type = ا‎ 
اك‎ O ل‎ 


)١(‏ 0854© : هو أمر الإعلان عن الثابت ( يبدأ الإعلان عن الثابت بالأمر 54مهم©) 
Constant_Name )۲(‏ : اسم الثابت ( اسم فريد ) . 
(۳) 0©6ل1 2343 : نوع البيان الذى سيتم تخزينه فى الثابت . 


٠ القيمة الثابتة التى سيتم تخزينها فى .الثابت المعلن عنه‎ : Vaاسم‎ )٤( 


: الكود التالى : 
للإعلان عن ثابت حرفى ء باننم 6_408 فى ذاكرة الكمبيوتر (/186817) ٠‏ من النوع 
الحرفى 8111114 وتخصيص القيمة النضية "جمهورية مصر العربية" له أثناء الإعلان : 


Const C_Name As Sirin] =  “ةيبرعلا جمهورية مصر‎ ” 
¥ ¥ ¥ ¥ 


القيمة الثابتة يأتى بعدها نوع يأتى جعدها اسم أمر الإعلان 
قيمة الثليت .-+«الميات.. ...نوع ليت تر ي الثابت عن الثابت 


Const C_Name As 5171110 = “ جمهورية مصر العربية‎ ” 
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الكميجوتر وتكنواوجيا المغلومات والإتضالات 
* مثال رس : الكود التالى: 7 
للإعلان عن ثابت باسم آم فى ذاكرة الكمبيوتر (۸۸۷) » من النوع رقمى عشرئ 81018 
وتخصيض القيمة 3.14 أو القيمة 22/7 له أثناء الإعلان : 


) نوع البيان ) | اسم الثابت [ مرالإعلان‎ [ ٠ القيمة‎ [ 
Const pi As Single =` 3 
Const pi As Single = 21 


Const pi As Single = 
Const pi As Single 


Or: 


٭ مثال رالود التالى : 
للإعلان عن ثابت باسم /[011311111) فى ذاكرة الكمبيوتر (2.63/4) ٠‏ من النوع الزقمى 
الصحيح 11116087 » وتخصيص القيمة 300 له أثناء الإعلان : 

[ القيمة )2-2 [نوع البيان ] [اسمالثابت]) [آمرالإعلان ) 
Const Quantity As Integer = 300‏ 


Const Quantity As Integer = 300 


> مثال (4) : الكود التالى : 
للوعلان عن ثابت باسم 8114111316 فى ذاكرة الكمبيوتر (/40)ء من. النوع 12216 
وتخصيض قيمة ( تاريخ 1/25/2004 ) له أثناء الإعلان : 


) [اسمالثابت ) ' | أمر الإعلان‎ ٠] القيمة. [ نوع البيان‎ 
Const BirthDate As Date = # 1/25/2004 # 
| Const B_Date As Date = # 1/25/2004 # 


الاحظ ١.‏ ج 
#إذا كانت قيمة الثابتأخرفية تكتب بين علامتى التنصيض (” » ) . 
٭ إذا كانت قيمة الثابت تاريخ أو وقت تكتب بين علامتى (# #). 
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البيانات Data‏ الكمبوقو وتكنولوجيا المغلومات والإتصالات 


[7555 الإعلان عن الثوابت ' ) Constants Dêblaration‏ 


*٭ قم بإعداد برنامج بلغة ۷8.6 يستقبل قيمة رقمية (.قيمة نصف قطر دائرة ) .ثم 
يقوم بحساب مساحة الدائرة ومحيطها عند الضغط على زر الأمر Button‏ . 


مساحة الدائرة cr?‏ وامحيظ الذائرة = 211 


حيث ( ٣‏ ) تمثل نصف القطر » 7 = 22/7 


: قم بتصميم نافذة النموذج (12:ه”1) التالية‎ ]١1[ 
واجهة المستخذم المطلوب إعدادها‎ 
BREET ST TFT O me 


ا نصف القطر 


| مساحه الدائرة | ٠‏ | ,ضحيط الدائرة | 


» “Code Widow” اضغط مفتاح ( ۴7 ) من لوحة المفاتيح يتم فتح نافذة الكود‎ ]١[ 
. Button2 و‎ Butto¬1 ثم قم بإضافة إجراء حدث ”6۸ا“ لكل من زرى الأمر‎ 
: Bu†)0 1 لإضافة إجراء حدث »اح لزر أمر‎ - 
. )Butا)0ہ1( أ ] من قائمة عدجج[< 1255© اختر أداة التحكم‎ [ 
ا الحدث حك‎ Method Name [ب] ھن قائمة‎ 


| # BindingContextChanged 
00 ee ب سرد ا‎ 


# ContextMenuChanged 

! Z ContetMenuStripChanged 
عو‎ ControlAdded 

« # Keylp 


- كرر الخطوات لإضافة إجراء:حدث )مااع لزر أُمر Bu †)0۸ 1٠‏ 
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* ا حدث )اع لكل من زرى الأمر 581011011 و 510110152 فى نافذة الكود: 


Public Class Form3 © 
Private Sub [Button1_ Click ByVal sender As Object, BY 


End Sub 2) 
Private Sub [Button2 Click | (ByVal sender As Object, By 
End Sub 

End Class 


Buttoہ۸1 إجراء حدث )عزاع لزر الأمر‎ )١( 
Butt0۸2 إجراء حدث )ع‌زاع لزر الأمر‎ )۲( 
» Button1_Click سوف نكتب كود لحساب مساحة الدائرة باستخدام إجراء الحدث‎ * 
. )81160521( وعرض الناتج داخل أداة التحكم العنوان (1.36612) عند النقر على الزر‎ 
» Butto2_Click وسوف نكتب كود لحساب محيط الدائرة باستخدام إجراء الحدث‎ * 
. )811002( وعرض الناتج داخل أداة التحكم العنوان (1256612) عند النقر على الزر‎ 
. Button1_Click كود حساب مساحة الدائرة فى نطاق إجراء حدث‎ ]۳[ 


Private Sub Buttonl_ Click (ByVal sender As Object , 
Dim Radius As Single 
Const pi As Single = 22 / 7 ' إعلان ثابت‎ 


Radius = TextBox1l.Text 
Label2.Text = pi * Radius ^ 2 
End Sub 


لاحظ ١:‏ :ذضتنتج من الكود السابق ما يلى : 
- تح الإعلان عن متغيز باسح (sںالهR)‏ » وتوعه رقمى عشرى (عاعم1؟) . 
- الإعلان عن ثابت باسم (¡۲) » ونوعه رقمى عشرى وتخضيص قيمته (7 / 22) . 
- وضع القیمة التى تم إدخالها فى صندوق النص (60:21]زه:1) فى المتغير (وuزdھR)‏ . 
- حساب مساحة الدائرة » وعرض الناتج فى أداة التحكم (12ءاة]) . 
[4] تشغيل المشروع : 
- أنقر زر عصنععنداء<1 St‏ » أو اضغط على مفتاح ( ۴5 ) من لوحة المفاتيح . 
- ثم أدخل قيمة نصق القطر قى صندوق التص كالتالى : 
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(Data البيانات‎ 


* أنقر على زر ( مساحة الدائرة ) . 
- تأكد من الناتج الذى حصلت عليه 
بعد تشغيل البرنامج . 
- بنفس الطريقة أكتب كود البرمجة 
الخاص بزر الأمر (002غ81) بجعت 2 
لحساب محيط الدائزة . ناتج حساب,مساح ةالدائرة بمعلومية نصف القطر 


ي تر 


> الثوابت هى عبارة عن أماكن محجوزة بذاكرة الكمبيوتر(8۸۷) ولها أنواع . 
#د كل البيانات التى يتم إدخالها إلى الكمبيوتر يتم تخزينها فى الذاكرة المؤقتة (۸۷.) . 
* من أكثر انواع البيانات استخداماً : 

الفوع ر :6123 - 58:10 لتخزين البيانات الحرفية ) . 

النوع ر 1014 - Short - niger‏ - 8/16 لتخزين البيانات الرقمية الصحيحة ) . 
النوع 08611131 - عاطناه0 - 815016 لتخزين البيانات الرقمية العشرية أو الكسور ) . 
النوع ر 8001621 - 0816 - 01861 لتخزين البيانات المتنوعة ) . 

النوع ر 0216 لتخزين بيانات التاريخ والوقت ) . 


VA,OVIETIATAETAV 


اختر الإجابة الصحيحة لكل ما يأتى : 
)١(‏ جميع أسماء الثوابت الآتية غير صحيحة ما عدا ESTEE‏ 

Double لاعدهاا_امعمة: (د)‎ (2) Spent.Money (4)  25TaxRate ( Î) 
E DET 8ر٥ حدود القيم المخزنة فى الثابت من النوع‎ )۲( 

١ (‏ ) أى عدد من الأحرف (ب) من صفر إلى ۲٣١‏ (ج) ات۴ / مد٣‏ (د ) حرف واحد 
(۳) يبدا االإعلان عن :الثوابت أبامنتخدام الأمق E ETE‏ 

Const ( )د‎ Declare (+) (ب) وم‎ Constants ( Î) 
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الكمؤيوتر وتكنولوجيا المغلومات والإتصالات 

5( يبدا اسم الثابت ب 

١ (‏ ) الشرطة السفلى (ب) كلمة محجوزة . (ج) حرف "(د ) كل من (أ© ج ) صحيح 
(©) طبيعة البيانات المخزنة فى متغير من النوع جهء8001 هى : 

١ (‏ ) قيمة 15136 ٠‏ (ب) قيمة True‏ (ج) كل من اء ب (د ) رقم أكبرمن ۲٣١‏ 
)١(‏ جميع البيانات التى يتم إدخالها إلى الكمبيوتر يتم تخزينها فئ 

( ) الذاكزة (561/1) ' (بْ) الذاكرة (01/1) (ج) القرص الصلب, ٠‏ (د ),القرص الضوكئ 
ضع علامة ر7 أمام العبارة الصحيحة وعلامة رن أمام العبارة الخطأ* 
)١(‏ إعلان الثوابت يبدأ بأمر ووم . 
(۲) تعتبر قيمة "اط" فى الرياضيات والتى تساوى ٠,١١‏ مثال للقيم.الثابتة . 
(۳) مدى. القيم. المخزنة فى الثابت من النوع 515918 هو من ( 0 إلى 255 ) . 
)٤(‏ لا يجوز أن يختوى اسم الثابت أو انم المتغير على الشرطة السفك ( - )1 
)١(‏ الثوابت من النوع 50016 و :1516991 تسمح بتخزين الأعداد العشرية . 
() لابد يبدأ اسم الثابت أو اسم المتغير بحرف أو رقم صحيح . 
(۷) يمكن تسمية الثابت أو المتغير باسم ,©19169.. 
(۸) البيانات المتنوعة هى بيانات لا تندرج تحت تصنيف البيانات, الرقمية أو. الحرفية . 
أذكر المفهوم ( المصطلح) الغلمى لكل ما إيلى : 
)١(‏ نوع من أنواع البيانات » يسمح بتخزين البيانات الخرفية . 
(۲) من أنواع البيانات » يسمح بتخزين الأعداد الصحيخة فقط ! 
() كلمات خاضة باللغة Visual Basic.Net‏ : 
)٤(‏ أحد أنواع البيانات الذی يأخذ القيمة هبل72 أو ©5215 , 
(0) الجملة التى تستخدم فى الان عن الثوابت . 
(5) أحد أنواع البيانات الزقمية الذى مداه من (0 : 255) . 
أكمل الجمل التالية حسب قواعد وشروط تكوين الأسماء فى لقة 83516 31نادالاً 

مستعيناً بالكلمات التالية من بين القوسين:: 
( المحجوزة: ‏ /1 بحرف أو اعلامة:( ن.)! !1 جروف وأرقام / 

)١(‏ يبدأ اسم الثابت أو ااسم لمتغيز ب 
(۲) لابد ألا يحتوى اسم الثابت أو اسم المتغير ”على أى من ال 
(۳) يمكن أن يحتوئ اسم الثابت أو اسم المتغير بعد الحرف الأول على 

وعلامة ( - )بای ترتيب: ٠‏ 
(4)!ألا'يكون !الاسم من الكلمنات للغة Visual basic.Net‏ . 


الفصل الدراسى الثانى 


Data البيانات‎ 


الكمدجوتر وتكنولوجيا المغلومات والاتطالات 
أسئلة وردت بامتحانات المحافظسات 
أكمل كل ما يأتى باستخدام ما بين القوسين : 

(حرف / رقم / Const‏ / )°( / ط / علامة (Boolean / Date / )  (‏ 
)١(‏ الأمر المستخدم فى.الإعلان عن الثوابت BA‏ ا او دالخ و 
(۲) يستخدم الثابت من النوع ...مم لتخزين بيانات .على شكل تاريخ ووقت , (البحيرة) 
(؟) من قواعد تسمية المتغيرات أو الثوابت فى البرنامج » يجب أن تبدأ ب ..: أو... (كفر الشيخ) 


)٤(‏ طبيعة البيانات المخزنة .فى متغير من النوع .......هي عدم] أوع1219 . (سوهاج) 
)٥(‏ مثال لقيم.الثوابت: قيمة:( . الرياضية » وعجلة الجاذنية الأرضبية وسرعة الضبوء 


والصوت.فئى. الفيزياء . (الغربية) 
ضع علامة ”ا أمام العبارة الضحيحة وعلامة رى أمام العيارة الخطأ : 
)١(‏ الثابت من النوع 6ر8 يستخدم لتخزين الأعداد الصضحيحة فقط . _ (مياط) ) ( 
(۲) يمكن إدخال ثابت من النوع عءاعم1ك فى العمليات الحسابية . (الغربية) ) ( 
(1) يحتوى اسم الثابت أو المتغيز على زموز أو علامات خاصضتة كالمسافة والنقطة و علامة 
الاستفهام وعلامة التعجب .. إلخ . (اسوان) 0 ( 


)٤(‏ المخازن التى يمكن أن تتغير قيمها أثناء تشغيل البرنامج يطلق عليها اسم الثوابت. (الإسماعيلية) 
)٥(‏ يسمح أن يكون اسم الثابت' أو المتغير من الأسماء المحجوزة فى ه8251 57151181. ( ( 
(5) الثابت الذى يأخذ القيمة ( عیاھ۴ :0 eں٣٣)‏ يكون من النوع 51014 ... (بنى سویف) ___( ( 
اختر الإجابة الصجيحة من بين القوسين : 
)١(‏ طبيعة البيانات المخزنة فى متغيرا من النوع دنهء7001 هى : 

( .من صفر حتى 55" - قيمة ع1218 - قيمة ع1*215 ۲٥ر‏ عں ٣آ‏ - كل ما:سبق ) (الغربية) 
(۲) اسم الثابت ........ يعتبر أسمأ صحيحاً من حيث قواعد الأنبماء فى ال :778,713 , 

١‏ (818خ204- 58.2018 - A B2018 - 2018A B‏ ) (المنوفية) 
(۳) الثابت العددى الذى يأخذ قيم عددية صحيحة من صفر إلى ۲٠١‏ هو من النوع SWE‏ م 
Double = Byte - String - Integer (‏ ) (أسون) 
(4) الثابت من النوع ...م يستخدم لتخزين الأعداد التى تحتوى على كسور . 
Integer - Char String - Decimal )‏ ) (الإسكندرية) 

(5) من قواعد تسمية الثوابت أو المتغيرات فى الفيجوال بيزيك يجب أن تبدأ ب DRE,‏ 
( حرف أو رقم - رقم أو رمز = حرف أو الشرطة السفلى رمز أو حرف ) (دمياض 


| | ا الفصل الدراسى الثان فد 


الكمججوتر وتكنولوجيا المغلومات والإتصالات 


Constants 


# نطاق ( مكان ) إعلان المتغير أو الثابت هو الذئ يحدد المكان المسموح باستعمال هذا 
المتغيزة أو الثابت فيه أداخل البرنامج . 

- يوجد مستويات للإعلان عن المتغيرات والتوابت (على مستوى الإجراء أو التصنيف) 

([05975 الكود التالى خاص بحساب مساحة الدائرة ومحيطها : 


Private Sub Button1l_ Click (ByVal sender As Object , 
لب‎ Dim Radius As Single 7 ١ إعلان عن متغين‎ 
جلت‎ const pi As Single = 22 / 7 ' إعلان عن ثابت‎ 

١ Radius. = TextBox1.Text 


Label2.Text = pi * Radius ^:2 
End Sub 


Private Sub Button2_Click (ByVal sender As Object , 
Radius xz TextBox1l.Text 
Label2.Text = pi * Radius * 2 
End Sub 


- لاحظ : تم الإعلان عن المتغير ( 2301/5 ) والثابت ( أ۴ )فى نطاق الإجراء الخاص 
بزر الأمر 1 » بالتالى المتغير ( 1930105 ) والثابت ( 51 ) غير معزوفين فى 
الإجراء الخاض بزر الأمر 8106002 : 

ب لذلك عند توجيه المؤشر إلى المتغيز ( ام ) فى حدث 810107201101 تظهر رسالة فى 
مستطيل أصفر تخبر أنه لم يتم الإعلان عن متغير باسم' ( أم ) كالتالى : 


Private Sub, Button2. Click (ByVal sender As Object , 
Radius = TextBox1l.Text 


Jabel2 . Text = pi * Radius 


سالة الخطأ ف 
تطيل اها End Sub | Name 'pi' is riot declared.‏ 


End Class ©‏ 
بيان الخطأ الموجود فى الكود 


3 الفضل الدراسى الثانئ 1 ا 


البيانات 202142 ) 


الكميجونو وتكنولوجيا المغلومات والإتضالات 
٭ يوجد أكثر من طرقة لحل هذه المشكلة : 
[أولا | نقوم بالإعلان عن المتغير وںاىجR‏ والثابت زم فى نطاق إجراء الحدث Button2 Click‏ 
كالتالى لأن حدود استعمال المتغيرات والثوابت هى نطاق الإجراء فقط . 
Private Sub Button2 Click (ByVal sender As Object ,‏ 
إعلان عن متغير ' Dim Radius As Single‏ جحل 
إعلان عن ثابت ' 7 / 22 = Const pi As Single‏ جحل 
Radius = TextBox1l.Text‏ 
Label2.Text = pi * Radius * 2‏ 
End Sub‏ 


الكود بعد إعلان المثغير ( 253010015 ) والثابت ( أم ) 


أو نقوم بالإعلان عن المتغير (5ب2010) والثابت (ام) على مستوى التصنيف (155,23) 
وبالتالى لا نحتاج إلى الإعلان عنهما على مستوى إجراء الحدث لزرى الأمر (0۸1اأط) و 
)butt0n2(‏ كالتالى : 


إعلان المتغير (1*20111015) والثابت راص على مسستوى التصنيف ر3مده"20 


Public عمقت‎ Tang ١ إغلان المتغیر انز لل ابت عن‎ 
Dim Radius As Single "۴6۲713 مستوى'التَصنيْف‎ 
Const pi As Single = 22 / 7 


Private Sub Buttonl_Click (ByVal sender As Object , ByVal 
Radius = TextBox1l.Text 
Label2 . Text = pi * Radius ^ 2 

End Sub 


Private Sub Button2_Click (ByVal sender As Object , ByVal 
Radius = TextBox1.Text 
Label2 . Text = pi * Radius * 2 
End Sub 
Erid Class 


1 القصل الدراسى الثانى ١‏ 


أ ' الكميجوتو وتكنولوجيا المغلومات والاتصالات 
٭# لتشغيل البرنامج اضغط ( ۴5 ) من لوحة المفاتيح لعمل واوق ııStart 5b‏ 
- أدخل قيمة نصف القطز .. 


مظن صقا مقع ka‏ 
| محيط الدائرة | | مساحة الدائرة ] 


عد ه1014 


EI, ESS RY‏ استخدام ژر -مساحة الذائرة: 


(0) کل نوع بيان' له جيز تخزین فى ذاکرة, الكمبيوتر (۸۸۷): [القاهر ] 


(۲) البيانات التى يتم إدخالها إلى الكمبيوتر يتم تخزينها فى ...ر [الشرقية] 
١‏ رلا نسستطيع استخدام المتغيرات. والثوابت: إلا في نطاق الإعلان جنها لا 
م الانتخدام 'المتغيرات والثوانت ذاخل نطاق الى و اج غاد E‏ 3 


Variables المتفيرات‎ ١ 


٭# إعلان المتغيرات هى عملية إعطاء أسماء للخاديا التى تحمل قيم متغيزة : 

*٭ المتغيرات عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر “R۸۸”‏ . 

چ وم لحي انع رارع ایر عند ع 

٭ قيمة المتغير عادة تتغير أثناء 'سير البرتامج' ( ولذلك شمن بالمتغير ٠٠)‏ 

*٭ يمكن أن يأخذ المتغير قيمة ابتدائية ( تسمى عد اور 1211181 ) ثم تتغير هذه القيمة أثناء 
سير البرنامج حسب طبيعة البرنامج » مثل ( سعر سلعة » سعر منتج » قيمة ضريبة » 
المرتب..-درجة:الطالب .. إلخ)-لاحظ أن كلها بيانات يمكن أن تتغيير 


E‏ الفضل الدراسى الثاتى ا 1 ا 


البيانات (Data‏ 1 لك جوتو وتكنولوجيا الى شلوماء 


الإعلان من التفيرات Variable Declaration‏ 


*٭ الإعلان عن متغير ل لغة Basic.NET‏ د يعنى تحديد ا ونوع البيان.. 
٭ الأمر Dim‏ يستخدم فى الإعلآن عن المتذيوات فى لغ 81 مم3 Visual‏ 


| م‎ As, en Type,; E Value] | 
oa 


im )١(‏ :.هو أمر. الإعلان عن المتغير ء٠‏ (يبدأ الإعلان عن المتغير بالأمر اسا5) 
Variable Name (۲)‏ : :اسم المتغيز ("اتلم اف )۸ ١‏ ها ال ريه 
(؟) Data ype‏ :نوع البيان الذى سيتم تخزينة فى المقغير . 

» القيمة,الابتدائية )التى نيتم تخزبنها ,فى المتغير المعلن عنه‎ : 101412١ Vaا‎ ue )٤( 
. لاحظ أن القيمة الابتدائية اختيارية‎ , * 


أمثلة لإعلان a‏ ا 
: الكود التالى : 


string E e GFL 8131116 للإعلان عن متغير باسم‎ | 
Dim F_Name As String 
¥ ¥ ¥ ¥ 


ايل ولت ن عبد 


* مثا م 


توع يتىبعدها ‏ اسم أمر الإعلان 
البيان نوع المتغير المتغير عن المتغير 


Dim F_Name As String 1‏ 
>* مثال ر( : الكود التالى : : 
للوعلان عن متغير باسم ۳0۵1_۴۲٥8‏ فی ذاكرة الكمبيوترء نوعه رقمى عشرى 511018 
نوع البيان | اسم المتغير]) [آمر الإعلان ) 

Dim Total_Price As Single 


| Dim Total_Price As Single 


آ بالفضل الدراسى الثائى Ba‏ 


الكميجوتر وتكنولؤديا المعلومات والإتصالات 
| ٭ مثال ر : الكود التالى : 1 
| للإعلان عن متغير باسم /[7003 فى ذاكرة الكمبيوتر (/12467) ء من النوع 2216 
وتخصيص قيمة ( تاريخ 1/25/2004 ) له أثناء الإعلان : 
القيمة نوع البيان اسم المتغير أمر الإعلان 
Dim BirthDate As Date = # 1/25/2004 #‏ 


Dim Today As Date = # 1/25/2004 # 


فى حالة إهمال المعامل ( = ) والقيمة:الإبتدائية فإن المتغير يأخذ قيمة افتراضية كالتالى: 
المتغير الرقمى (ارقم صحيح أو رقم عشرى ) يأخذ القيمة صفر . 
المتغير الحرفى يأخذ القيمة ( سلسلة حرفية فارغة ) . 


0575 الاعلان عن المتغيرات 


»د أكتب كود ۷8.٤١‏ اللازم للإعلان عن المتغيرات التى نحتاجها لاستقبال مدخلات الستخدم » 
من خلال نافذة نموذج ‏ تسجيل مستخدم جديد ) . 
*٭ )١(‏ صمم نافذة النموذج الموضحة . 


9 سمل سس ميد | aîle‏ 
ا الاسم EF‏ ا 
و 3 
النوع 0 ذكر 0 انتی 
عدد أفراد الأسرة 1 1 
[... تسجيل ‏ | 


واجَهة المستخدم المطلوب إعدادها 


5 الفصل الدراسى الثاتى | 1 


الكمديوتو وتكنولوجيا المغلومات والإتصالات 

٭# (7) التالى عناوين أدوات التحكم وتوع القيم المتوقع:إدخالها من مستخدم البرتامج 
وأسماء المتغيرات : 

| عناوين أدوات التحكم 


Data البيانات‎ 


نوع البيان ر Data Type‏ › 1 أسماء المتغيرات 


اسم المستخدم | نص ” U_Name : ‘String‏ 
تاريخ الميلاد | تاريخ U_B Db “Date”‏ 

النوع ا منطقى ”2۸ا80“ U_ Gender‏ 
ا عدد أفراد اة 1 | رقم صحيح U_C_F “nteger”‏ 


القيم المتوقع إدخالها من مستخدم البرنامج 


| هام] (إجراء الحدث (Event Procedure‏ يلق عليه ( معالج الحدث (Event Handler‏ 


٭ (*) أضف معالج حدث "۲ء افہة۸ 80:36" الضغط 5-61:٥»‏ على زر إ٠‏ تسج 
* (4) أكتب الكود التالى للإعلان عن المتغيرات: 

Private Sub Buttonl_Click (ByVal Sender As 

Dim U_Name As String 

Dim U_B_D As Date 

Diri U_Gender As Boolean 

Dim U_C IFAs Integer 
End Sub 


الإعلان عن المتغيرات 


هى أسماء لأماكن تخزين فى ذاكرة,الكمبيوتر تتغير قيمتها أثناء سير البزنامج. [المنيا] 


(۲) كلمة عا5108 من الكلمات المحجوزة التى الا تستخدم أثناء تسمية المتغيرات. ‏ [الفيوم] ( ( 


ع 


| * المتغيرات عبارة عن أماكن محجوزة بذاكرة الكمبيوتر 8۸07“ ولها أنواع . 
> يستخدم الأمر ص1( فى الإعلان عن المتغيرات فى لغة:5/8.2157 . 


ا ا ا الفصل الدراسئ الثاتى E‏ 


“لاقو الڪ هوتو وتكنولوجيا المغا 


ا جوله التخصيص 255101111101 


- يقصيد بالتخصيصن تعيين /قيمة:لمتغين أو لثابت أو 7لخاصبية أداة تحكم. . : 

* جملة التخصيص تتكون من طرفين بينهما علامة ر > ) : 

- الطرف الأيمن هو مكان ( القيمة ),. 

- الطرف الأسر هو اسم متغير أو اسم تابث وتخزن فيه القيمة بالطرف الأيمن ( هو 

مكان تخزين القيمة ) . ش 

(مثال) تخضيص حاصل ضرب الرقمين ( 25 , 3 ) للمتغير 888 : 3 * 25 Area‏ 

( الطرف الأيمن ) علامة التخصيص ( الطرف الأيمس ) متخير 
3ه - Area Ja‏ 


الطرف الأدسر 
Variable‏ 


Variable 
قيمة من تعبير‎ 
"Expression" £, 
"5721106" تتحدد القيمة‎ 
حسف طبيعة الخاصية‎ | 
EE - "١ الخلاصة: فى جملة التخضيص‎ * 
5 . الطرف الايعن قد يكين‎ 
ا 06 قيمة مجردة‎ 

ا | ) قيمة من متغير "2616 ج017 


") قيمة من تعبير Exþressio".‏ .| 
5)- قيمة من خاصية "Property"‏ -- 


a‏ الفضل الدزاسئ الثانى: أ 


TextBox1.Text="Egypt" 


"Variable!" متغير,‎ - 
E 
|property E 


الكمجهوقر وتكنولوجيا المغلومات والإتصالات 


تدریب | تخصيص قيم المتغيرات (sع۷1۲12b1)‏ | 
د لاحظ الجدول التالى مستعيناً بكل من نافذة التموذج وكود الإعلان عن المتغيرات : 
Private Sub Button1_Click (ByVal Sender As‏ 
Dim U_Name As String‏ 
Dim U_B_D As Date‏ 


Data البيانات:‎ 


Dim U_Gender As Boolean 
Dim U C_F’As Integer 


End Sub 
أسماء المتغبرات | الخاصية أداة التحكم‎ ١ جملة التخصيص‎ 
TextBox1 Text U_Name 2 Name = TextBox1.Text | 
TextBox2 Text UBD [UB D5 TextBox2.Text | 
TextBox3 Text U_CF | له‎ F - 3 .Text | 
RadioButton1 | Checked | U_Gender | U_ _Gender = False EE 5 


* أكتب جمل التخصيص التالية : 


Private Sub Button1 _ Click (ByVal Sender As 
Dim U_Name As String 
Dim U_B_D As Date إعلان متغيزات‎ 
Dim U_Gender As Boolean 
Dim U_C_F As Integer 
U_Name = TextBox1.Text وا‎ 
U_B_D = TextBox2.Text e 
If RadioButton1.Checked = True Then 
U_Gender = True جملة تخصيص + هه‎ 
EndIf 
If RadioButton1.Checked = False Then 
U_Gender = False > جملة تخصيص لس‎ 
End If 
U_C_F = TextBox3,Text جملة تخصيص لبه‎ 


End Sub 


الكمجوتر وتكنولوجيا المغلومات والإتضالات 


د تم اختبار قيمة الخاصية "0ع»إعه01" لأداة تحكم "192010181010171" باستخدام جملة 1۴ 
* إذا أخذت الخاصية "0عان 01" القيمة "ع ل1" يخصص للمتغير ( U_Ge d٥r‏ ) 
القيمة "عن 7" » وإذا كانت العكس يخصص للمتغير ) (U_ Gender‏ القيمة "22156]" 


7 تدريب | استخدام المتغيرات (0772112615) 


- تعديل نافذة النمؤذج لعرض قيم المتغيرات فى أداة العنوان (1ع20.]) : 


: أضف أداة تحكم العنوان (356615:]) إلى نافذة النموذج‎ )١( 


ال تسمل تعنم جنيد : 2 2 اس برح اکتا 
الاسم |١‏ َ | 
LabelS‏ 
تاريخ المبلاد ا 1 
النوع © ذكر 0 اشی ا 


أ 


| عدد افراد الأسرة | | | 


سجل ...| 


(؟) أضبط خصائص أداة تحكم العنوان (85615,]) كالتالى : 


AutoSize 


False 


E Location 


باستخدام مؤشر الفأرة » أو نافذة الخصائص ٠‏ أو نافذة الكود 


0 
1 
ا‎ BorderStyle FixedSingle 


(۳) أفتح إجراء الحدث بالضغط )ءا٥-0‏ على زر ( تسجيل ) . 
(4) أضف سطر” الكود التالى إلئ نهاية الإجراء : 


1/1 2:آ.‎ 1215 . Text = UserName & vbCrLf & UserBirthDate & _ 


vbCrLf & UserGender & vbCrLf & UserNoFamily 


الفصل الدراسى الثائى 


الكمججو قو وتكنولوجيا المغلومات والإتضالات 


Private Sub, Buttonl Click (ByVal Sender As System.Object, ByVal e 
REM الإعلان عن المتغيرات‎ 
Dim UserName As String 
Dim UserBirthDate As Date 
Dim UserGender As Boolean 
Dim UserNoFamily As Integer 


REM. تخصيص قیم للمتغيرات‎ 
UserName ج‎ Me. TextBox1.Text 
UserBirthDate = Me.TextBox2.Text 
If RadioButton1.Checked = True Then 
UserGender = True 
Else 
UserGender = False 
End If 1 
UserNoFamily = Me.TextBox3.Text 


] > [ استخدام هذه المتغيرات‎ 
Me.label5.Text = UserName & vbCrLf & UserBirthDate & _ 
vbCrLf & UserGender & vbCrLf & UserNoFamily 


الإعلان عن المتغير ات وتخصيص قيم لها مع كتابة الملاحظات 

: فى الکود السابق‎ ID 

* المصطلح ( ٠‏ ) يعبر عن نافذة النموذج ”ر٥۴“‏ الحالية . 

* معامل الربط ( .8 ) يستخدم للفصل بين كل متغير وآخر . 

* الكلمة المحجوزة ( ٠/1111‏ ) تستخدم فى إنشاء سطر جديد . 

* علامة الشرطة السفلى ( ._ ) تستخدم لكتابة الكود على أكثر من سطر فى حالة إذا كان 
سطر الكود طويل وذلك لتنظيم وتسهيل قراءة الكود . 

* يستخدم المبرمج الأمر ( R٤۷‏ ) فى كتابة ملاحظات داخل الكود يمكن الرجوع إليها 
عند الحاجة » ولا يتم ترجمتها. 


|| الفضل الدراسى الثانى E‏ 


الكميجوتر وتكنولوجيا المغلومات والإتصالات 


aî ES 

جز تشفيل البرنامج ) 1 الاسم ياسمين تامر ا ا 7 أ 
VITIT 1 6 7 FI, , û XT‏ 

(6) اضغط على منتاح 75 العمل ا ر ت 


. „Start Debugging 
» أدخل بيانات استمارة التسجيل‎ )5( 
. ) ثم اضغط على الزر ( تسجيل‎ 


عدد أفراذ الأسرة ‏ م 


| 
| 

انوع 0 ذكر اتی | 
أ 

| 


RAM ) )د‎ ROM. (€) . (ت) البيائنات‎ As (Î) 
N (؟) يبدأ الإعلان عن المتغيرات باستخدام جملة‎ 

Dim ) )د‎ Declare )ج(‎ As (ب)‎ Variable (Î) 
E يبدأ اسم المتغير ب‎ )4( 

١ (‏ ) الشرطة السفلئ (ب) كلمة محجوزة . 

(ج) حرف 5 (د) كل من ( أ »ج ) صحيح 
(5) جميع البيانات التى يتم إدخالها إلى الكمبيوتر يتم تخزينها فى بن 

(1) الذاكرة المؤقتة (۸۸۷) (ب) الذاكرة المستديمة' (/5©(1) 

(ج) هاردسك + (د ) لوحة المفاتياخ . 
(5) جميع أسماء المتغيرات الآتية صحيّحة ما عذا AY‏ ا 

FirstName )ب(‎ PopulationOfEgypt ( Î) 

(ج) 2011Year‏ )د( Anmed2000‏ 
(۷) حدود القيم المخزنة فى البيان من النوع 81/6 0 

(1)'تبدأ من ۳۲۷۹۸ إلى لاوم (ب) تبدأامن صٹفر إلئ. ۲٠١‏ 

)ج( True / False‏ (د ) حرف وانحد 


33 5ب الفصل الدراسى الثاتى آ 


الكمديوفو وتكنولوجيا المغلومات والإنصالات 
ضع علامة ر” أمام العبازة الصحيخة وعلامة ون أمام العبازة الخطأ : 
)١(‏ يفكت" أن يعبر اسم المتغير عن محتواه . 
(۲) المتغيرات من النوع 51016 و 1016967 تسمح بتخزين الأعداد الضحيحة . 
(۳) مدى.القيم: المخزنة: فى ,المتغين ,من رالنوع :8۷1# هئ:(رمن 0 إلى 255 )1. 
(4) يبدأ اشم المتغير بحرق أو زقم صحيح . 
(5) يمكن تسمية المتغير باسم 510918 , 
(1) يجوز أن يحتوى اسم المتغير على الشرطة السفلى (_) . 
أكمل كل ما يأتى باستخدام ما بين القوسين : 
( متغيرات - String - Single - Date - Integer - Boolean‏ ( 
)١(‏ لتخزين قيم عددية تحتوى على كسور نستخدم متغيرات من النوع As‏ 
(۲) يستخدم متغير من النوع ل.ل اليخزن فيه اسم الطالب . 
(۴) لتخزين قيم عددية صحيحة لا تحتوى على كسور نستخدم متغيرات من النوع BE‏ 
(:) إذا كانت القيم المخزنة فى ذاكرة الكمبيوتر تتغير أثناء تشغيل البرنامج فان أسماء الخلايا التي 
تشغلها هذه القيم يطلق عليها ال ل 
)٥(‏ يستخدم متغير من النوع ............... ليخزن فيه تاريخ ميلاد الطالب . 
الثالى جمل نتخصيص لضبط خصائص الأدوات : حدد الخاصية ونوع بيان الخاصية: 


Data البيانات‎ 


اج مدعو مم AùtoSke 2> 218487 CY secs‏ .الفظطصضة 
0 = 1/15 :لا ءطهنة 
" كتا ب الفائز"- 1ext‏ .[1اوطصة | (3) | 


EFE‏ إذا E‏ ا بيانات مستخدم جديد فى متغبرات . حدد نوع البيان المناسب لكل بيان 
من بيانات مستخدم البرنامج التى تشر إليها الأرقام على النافذة ةالقالية : 


| سيل صدمم جد 


CDE  سضدسلا‎ |) ا‎ COO E ا‎ 


١ 1‏ القصل الدراسى الثانى ا 


الكمججوقو وتكنولوجيا المغلومات والإتصالات 
حك انين 0 لفطك الت 
2 استخرج أسماء المتغبرات والثوابت وأنواعها فى الكود القالى :“«النرنيم 


Private طددة‎ Buttonl Click(ByVal Sender ...... ) 
Dim Radius As Single 

Const X As Single = 22 / 7 

Label2.Text = X * Radius 2 


3 اختر الإجابة الصحيحة لكل ما يأتى مما بين القوسين: 
)١(‏ البيانات 00000 هن اا لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية . 


: ( العددية الصحيحة - العددية العشرية - الحرفية - المتنوعة ) (المنوفية) 
2( ........... عبارة عن جملة من طرفين بينهما مغامل التخصيص ( - ) ٠‏ 
(.إعلان عن المتغيرات - إعلان عن الثوابت - التخصيص - تحديد النطاق ) (اسوان) 
(۳) المتغير من النوع .......... يستخدم لتخزين الأعداد التى لا تحتوى على كسور . 
Integer — String - Decimal — Single )‏ ) (الإسكدرية) 
)٤(‏ المتغير الذى يأخذ القيمة (3158 ) أو ( 7606 ) يكون من النوع ERE‏ 


(Single - Const — Boolean - Dim (‏ (دمياط) 
(5) يستخدم الأمر ............ للإعلان عن أسماء المتغيرات فى لغة فيجوال بيزيك دوت نت . 
Const - Dim - Char )‏ - عال8 ) (المتوفية) 
ضع علامة ر أمام العبارة الصحيحة وعلامة »م أمام العبارة الخظأ : 
)0( البيانات المتنوعة هى بيانات لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية مثل 03146 و 
Boolean‏ . مياط) 
(۲) قيمة (ط) الرياضية » وسرعة الضوء والصوت فى الفيزياء آمثلة للقيم الثابتة. 
(r)‏ المخازن التى لا تتغير قيمها أثناء تشغيل البرنامج تسمى المتغيرات. (اسوان) 
)٤(‏ المتغير الذى يأخذ قيم من صفر حتى ۲٣١‏ يكون من النوع 2511016 (بنى سويف) 
(5) للإعلان عن ثابت باسم باه8_0 من النوع date‏ نكتب: As Date‏ لاه8_0 Dim‏ 
(3) التخصيصن يمكن أن يكون بقيمة خاصية أداة تحكم أو بقيمة تعبير حسابى . 
(vbCrLf )9(‏ م كلمة مجحجوزة تستخدم فى إنشاء سطر جديد . 


3 الفصل الدراسى الثانى ا | ا 


rrr لتر‎ ^ r 
E OO سان‎ 
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أولويات تنفيد العمليات الحسابية 
# عند تخصيص تعبير حسابى قد يحتوى التعبير الحاسبى على أكثز من عملية حسابية . 
- مثال: ما هو الناتج النهائى للمتغير ( ۸ ) فى التعبير التالى : 4 * 3+ 2 - هر 
الناتج النهائى هو 14 وليس 20 وذلك حسب أولويات تنفيذ العمليات الحسابية . 


الكمجهو تو وتكنولوجيا المغلومات والإتصالات 


Data البيانات‎ 


أولويات تنفيذ العمليات الحسابية فى 8251.111 [12اؤ5آلا 

(© تنفيذ العمليات داخل الأقواس من الداخل إلى الخارج . 

@ تنفيذ عمليات الضرب أوالقسمة من اليسار إلى اليمين أيهما أولآ . 

® تنفيذ عمليات الجمع أوالطرح من اليسار إلى اليمين أيهما أولآ . 

- لذلك لابد من تحرى الدقة عند كتابة التعبيرات الحسابية » حتى نتجنب الوقوع فى 
الأخطاء المنطقية "Logical Errors"‏ . 

*٭ مثال :: ما الناتح النهانى للمتغير (8) فى التعبير التالى: ( 3 / 9 + 7 = 8) 

٭# أولاً : تنفيذ عملية القسمة (9/3=3) 

#* ثانياً: تنفيذ عملية الجمع ( 10.- 3+ 7) 

٭ الناتج النهانى: 10 = 8 


1 الأخطاء ر 8571015) 


# لابد من الالتزام بقواعد لغة البرمجة عند كتابة الكود فى نافذة Code Window‏ . 
#٭ عدم الإلتزام بقواعد لغة البرمجة المستخدمة يؤدى إلى ظهور رسائل خطأ » أو عدم 
تنفيذ الكود » أو الحصول: على نتائج خطأ ء أو عدم:تشغيل البرنامج . 


يوجد ثلاثة أنوع من الخطأ 
]١[‏ أخطاء لغوية “Syntax Errors”‏ . 
€3 أخطاء منطقية Errors”‏ ع زوه 1» . 
أخطاء عند التشغيل 105 1214170“ ( تقع أثناء تشفيل البرنامج ). 
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الكميجوتز وتكنولوجيا المغلومات والإتصالات 


(Syntax Errors" gi GD 
REE RT EEE E E E EGR * 
[Din X As Single 93 : مثالا‎ * 
. ) تم الإعلان عن المتغير () ولكن تم كتابة كلمة مط خطأ ( وزو خطأ لغوى‎ 

Const x As single 199 : مال‎ * 

تم الإعلان عن الثابت (:) ولكن لم تخصص له قيمة أثناء الإعلان (خطأ نحوى) . 
* التغلب على الأخطاء اللغوية : الأخطاء اللغوية سهل اكتشافها لأنها تظهر مباشرة أثناء 

كتابة الكود . 
- بيئّة التطوير (5|) تعرض الشكل العام لأى أمر أثناء كتابته فى نافذة الكود . 


ل 


(ثانيل) أخطاء منطقية "ورممرع ءأوه- "١٠‏ )يه 
8 تحدث بسبب صياغة تعبيرات حسابية أو متطقية بصورة خطأ #اتؤادى إلئ:الحصول 
٭ مثال : نستخدم الكود التالى فى حساب مساحة الدائرة : 
Dim Radius As Single‏ 
Const x As Single = 22 / 7‏ 
Radius = TextBox1 .Text‏ 
Label2.Text = x EŞ Radius ^ 2‏ 


_ لاحظء: فى معادلة حساب امساحة الدائرة تم استخذام علامة (+) بدلا من علامة (*) . 
_ لذلك عند تنفيذ البرنامج سوق يعطى تتيجة ولكنها خطأ بالرغم.من أن البرنامج لن 
يعطى أى رسائل خطأ . 
>« التغلب على الأخطاء المنطقية : يجب حساب تتيجة تشغيل البرتامج مسبقاً فإذا تساوت 
مع ناتج تشغيل البرتامج يكون البرنامج صحيح . 
5 الكود Din X As Single‏ يسيب خطأ (Error)‏ 2 
- يحدت الخطا المتطقن (+570 081]) عند كتابة تعبير حسابى بِصورة غير سليمة. ( ) 


ك القصل الدراسى الثاتى 1 | 


الكمبجوتز وتكنولوجيا المغلومات والاتضالات 


رثالثا )( أخطاء أثناء التشغفيل “Runtime Errors”‏ )و 


# الأخطاء التى يتم اكتشافها فقط أثناء تشغيل البرنامج . 
لاسكا عد ی ل كير مل المدى المسمرج وه للوع البيان ا 
»* مثال : عند الإعلان عن متغير من النوع ( 183:6 ) » وعند تشغيل البرنامج تم إعطاء 
قيمة أقل من (0) أو“أكبر من (255) . 
- فتظهر رسالة خطأ عند التشغيل بأن القيمة خارج حدود المدى . 


” أثناء ا مرحطلة دلية‎ SAE E 
ناهم فى تزّشيد استهلاك ذاكرةالكمبيوتر:‎ ۷ B.N ٤1 الإعلان عن المتغيرات فى لغة‎ * 
يقصد بالتخصيض تعيين قيمة لمتغير أوالثابت أو لخاضيّة أداة تحكم”.‎ * 
:')= جملة التخصيص تتكون من طرفين بينهما علامة ر‎ * 
أو اسم ثابت وتخزن‎ N الطرف الأيمن هو مكان القيمة ؛ والطرف الأيسبر هو‎ = 
." î . ) فيه القيمة بالطرفت الأيمن ( مكان تخزين القيمة‎ 
21لاؤألا‎ 8251٥.۸6 أولويات تنفيد العمليات الحسابية فى‎ * 
تنفيذ العمليات داخل الأقواس من الداخل إلى الخارج'.‎ )١( 
تنفيذ الأس..‎ )۲( 
. تنفيذ عمليات الضرب أوالقسمة من اليسار إلى اليمين أيهما أولاً‎ )1١( 
. تنفيذ عمليات الجمع أوالطرح من اليسار إلى اليمين أيهما اول‎ )4( 
جيم الإلتزءاعببقوا جد لخةوالبريسجة المتخجمة يودى إلى ظهور رساك ج .أ وعدم‎ 
E تنفيذ الكود » أو الحصول لی نتائج خا‎ 
يوجد ثلاثة أنوع من الخطأ‎ * 
. “Syntax E05” أخطاء لغوية‎ )0( 
٠ هى أخطاء فى الصيغة العامة لأوامر اللغة » تحدث غند كتابة.الكود بشكل غير سليم‎ 
وو“‎ ٤۲٥٣7 أخطاء منطقية‎ )۲( 
تحدت بسبب صياغة تعبيرات حسابية أو منطقية بضورة خظا › تؤدى إلئ نتائج خط‎ 
.“RÜntimê Errors” أخطاء عند التشغيل‎ )7( 
تحدث عند تخضيص قيمة أصغر أو أكبر من المدئ'المسمواح به لنوع البيان السنتخدم.‎ 


اللفصل الدراسي الثانى 


ب 


() تاقش مجتوى الشاشة التالية والجدول . الاسم ٠‏ [باسمين نار 


| عد افرلة الاسة ر له 77 ا 


دستخدم فی إدخال بیانات قيمة البيانات 


نوع أداة التحكم 


من نوع التى تم إدخالها 
الاسم صندوق نص ع0 ۲۵×8 ' حرفى 6001212161 | ياسمين.تامر 
تاريخ الميلاد صندوق نص ×0 ۲۵×8 تاريخ BIINEY Date‏ 7 
عدد أفراد الأسرة صندوق نص ×0 ۲۵×8 رقمى Numeric‏ ° 
النوع زر اختيار RadioButton‏ منطقى ننعه.آ1 أنثى 
| سب تتا 


أسم الطالب. 


)١(‏ أكمل الجدول التائى مستعيناً بانشاشُة المقابلة . ربط الاك 


وستخدم فى إدخال بيانات 

من نوع 
رقم الجلوس E ANSE REESE‏ ا ا SAS‏ ا ا NEARER‏ 
اسم الطالب OE RE‏ ا O O‏ 
تاريخ الميلاد CON O ROP e o E PEE PEP O TE EOIN E OEE‏ 


DA E OE سا اس و‎ Er E MED E REN المجموع الكلى‎ 
EE PE NO د رز‎ AEE PT I PORE حالة الطالب‎ 


صورة الظالب PictureBox‏ صورة ملف الصورة 


a‏ الفضل الدراسى الثانى | أ 


نوع أداة التحكم 


Data البيانات‎ 


02 اختر الإجابة الصحيحة لكل ما يأتى من بين القوسين ؛ 0 

( 87 - الثابت - المتغير - التعليقات = 5ع - (-)" -- الأيسر د الأيمن ) 
)١(‏ الطرف الأيسر فى أمر التخصيص هو اسم rr‏ اسه !تابنك © 
(۲) تتكون جملة التخصيص من الطرف .......... وهو يمثل ( المخزن ) والطرف .........: وهو القيمة. 
(4) عند الإعلان عن ...لاجد من تخصيص قيمة اله عند الإعلان عنه . 
(3) لتشغيل البرنامج من داخل ۷8.6 انقر على مفتاح ....... Start Debügging Jazl‏ . 
(1) بعد تنفيذ المعادلة الخسابية التالية: (5 * 2 + 2 =× ) فإن قيمة × هى 
(۷) يستخدم الأمر 101:34 فى كتابة 0 CYCLE ETE‏ 


م اختر الإجابة الصحيحة لکل ما يأتى': 
)١(‏ جملة التخصيص تستخدم فى تخزين قيمة فى : 

( أ) متغير 573116 ١‏ ' (ب) خاصية رام۴۵ (ج) ثابث )مهاوه (د ) کل ما سبق 
(۲) بعد تنفيذ التعبير الحسابى التالى: (3 *.2 + 4 =۸ ) فإن قيمة ۸ هى .... 
((18 (ب) 10 (ج) 12 


(ب) أسفل (ج) يسبار 
)٤(‏ الكلمة المججوزة ...م تشين. إلى نافذة النموذج ”جردروم'* الحالية : 


End Subi( (د‎ Private (ج)‎ End )ج(‎ Me().. 
: الطرف الأيمن فى جملة التخصيض:يمكن أن يكون‎ )5( 
قيمة مجرادة (ب) قيمة متغير 2 (ج) قيمة من تعبير (د ) كلما سبق‎ )1( 
: كلمة محجوزة تستخدم فى إنشاء سطر جديد‎ )1( 
©) Dim (ج)‎ vbCrLf )ب(‎ Me( Î) 
: يعتبر استخدام ......... كأسم متغير غير صحيح من حيث قواعد تسمية المتغيرات‎ )۷( 
(د ) كل ما سبق‎ Dim (e) vbCrLf (4) SAC) 


أذكر المفهوم ر المصطلح ) الغلمى لكل ما يأتى : 

. أمر يستخدم لكتابة الملاحظات فى نافذة الكود‎ )١( 

(۲) كلمة محجوزة تستخدم فى إنشاء سطر جديد . 

:| (") لا يمكن تغيير قيمته أثناء تشغيل البرنامخ . 

)٤(‏ كلمة محجوزة تشير إلى نافذة النموذج ”إ۴“ الحاليةا: 

(5) يمكن أن يخصص له قيمة عند الإعلان عنه أو فئ مرحلة تالية ! 
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الكمجهونور وتكنولوجيا المغلومات والإتصالات 
ضح علامة ر أماة/القبازة الصحيحة وعلامة زم أمام التاذة لطا : 
د mnogo‏ 

(۲) إعلان الثوابت يبدأ بأمر وره . 
(؟) جملة التبخصيص التالية غير صحيحة :8 + 4 1105 . 

. المقصود بالإعلان عن عن المتغير ء هو تحديد اسمه ونوع البيانات‎ )٤( 
. نيدأ كتابة الملاحظات أو التعليقات فى نافذة الكود بالأمر درا‎ (°) 


حر لر حر حر حر حر 
يل یھ نا ت 


(5) تستخدم علامتى التنصيص ( ” » ) فى حالة كتابة قيم التاريخ أو الوقت . 0 

(۷) أخطاء عند التشغيل ٤۲٣۵۲57‏ 1106م“ » تحدث بسبب صياغة تعبيرات حسابية أو 
منطقية بصورة خطاء تؤدى إلى نتائج خطأ . ) ( 

(۸) أخطاء منطقية ٤۲٣۵۲”‏ وأون]“» تحدث عند تخصيص قيمة أصغر أو أكبر من المدى 
المسموح به لنوع البيان المستخدم . ) ( 


أكتب ما تدل عليه الأرقام على الكود التالى : 


Public Class Form1 
(1) Dim Name_Student As String 
(2) Dim Computer As Single 
(3) Dim Total As Byte = 0 


Private Sub Biütton1 Click (ByVal sender AS Object , 
(4) Name_ Student = TextBox1.Text 
(5) Label1.Text = Total 
Computer = TextBox2.Text 
(6) TextBox3.Text = Computer / Total * 100 
End Sub 
Enid Class 


حدد الكلمة المختلفة فى ما يأتى : 

Byte — Long — String — Integer (۱) 
Double — Byte - Decimal — Single (Y) 
Me -— Char - Boolean — Date (¥) 
Object Char - Boolean = Date (¥) 


11| القضل الدراسى الثانى‎ aa 


aa البيانات‎ 


الكميجوتو وتكنولوجيا المغلومات والإتصالات 
راق را حدد نوع الخطا فى الكود التالى ثم صوبه : 
التصويب 0 توعالخط الكود زع00© ) 


Din X As Single 
2 | Const X As Single 


>* رب) : حدد نوع الخطأ فى الكود التالى لحساب مساحة الدائرة » ثم صوبه : 


Dim Radius As Single 
Const x As Single = 22 / 7 
Radius = TextBox1l.:Text 
Label2.Text = x + Radius ^ 2 


فسر ما تشبر إليه الأرقام فئ الكود التالى : 
Private Sub Button1_Click(ByVal Sender‏ 


Dim UserName As String 

Dim UserBirthDate As Date (@) 
Dim UserGender As Böolean 

Dim UserTelNo As Integer 


UserName = TextBoxl. Text (e) 
UserBirthDate = TextBox2. Text 
UserGender = CheckBox1. Checked 
UserTelNo = TextBox3. Text 


رتب الأسطر الآتية وفقاً لأولويات تنفيذ العمليات الحسابية فى لغة V8.N ٤7‏ : 


الرتبة العملية 
) | تنفيذ عمليات الضرب أوالقسمة من اليسار إلى اليمين أيهما أولاً . 
) | تنفيذ العمليات ذاخل الأقواس من الداخل إلى الخارج 
) ( نهذ عليات الجمع أوالطرح من يسار إلى اين اهما لون . 
) ( تنفيذ الأس . 
حدد ناتج تنفيذ العمليات الحسابية التالية : 
POY)‏ 052 النتيجة هى : 
501552 النتيئجة هى : 
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الكميهوتر وتكنولوجيا المغلومات والإتضالات 


0 اختر الإجابة الصحيحة لكل ما يأتى : 
)١(‏ الأسطر التى تبدأ ب ل ور م E‏ الخو E‏ 
البرنامج ( بون سعيد) 
Dim (Î)‏ 4 (ب). Const (€) REM‏ )د )اوه 
(۲) يبدأ:الإعلان عن الثوابت: فی لغة '5713:7[131 بالأمن (دمياط) 
Variable ( Î)‏ )ب( Const ( 3) Dim © Declare‏ 
من أنواع البيانات لا يندرج تحت تصنيف البيانات الحرفية أو البيانات الرقمية . (الغربية) 
Integer (Î)‏ )ب( True‏ ب Boolean‏ )د ) Byte‏ 
)٤(‏ يمكن تحديد قيمة ابتدائية عند إعلان فى وقت لاحق . (بنى سويف) 
(1).المتغيرات (ب) الثوابت (ج) المتخيرات والثوابت ؛ .(< ) كل مااسبق 
() القيمة النهائية للمتغير ( × ) بعد تنفيذ المعادلة التالية: 4 * 2 + 3 =× هى : 
2000 ب 11 (ع) 13 (د ) لا شئ ما سبق 
١١ 22‏ ) أكمل باستخدام ما بین القوسين لكل مما يأتى : 
( حرف - رقم :086 ). + )°( — (_) - Boolean - Date‏ ( 
)١(‏ تستخدم فى الإعلان عن الثوابت (دمیاط) 
(۲) يستخدم المتغير من النوع لتخزين بيانات على شكل تاربخ أو وقت . (البحيرة) 
(۳) من قواجد تببمية المتغيرات أو الثوابت فى البرنامج » يجب أن تبدأ ب 
(ت) أكتب كود البزمجة المستخدم فى : 
(4) الإعلان عن متغير باسم 941016418516 لتخزين مجموعة من الحروف فيه . (الدقهلية) 
(5) الإعلان عن ثابت باسم (8.1 لتخزين القيمة ”16/5/2003“ . (سوهاج) 
(5) تخصيص القيمة رم ھ1 لمتغير اسمه FirstName‏ : (الغربية) 
ضع علامة ر” أمام العبارة الصحيحة وعلامة (>م) أمام العبارة الخطأ : 
)١(‏ تعتبر قيمة "ط" والتى تساوى قيمتها ",١ ٤‏ مثال للقيم المتغيرة . (الغربية) 
(؟) الصيغة ( × = 5 ) تعتبر أمر تخصيص صحيح : (الإشكسرية) 
(') يقصد بالمتغيرات فى لغة '5773.71131 مخازن بذاكرة الكمبيوتر لها اشم ونوع (كنر الشيخ) ( 
)٤(‏ جملة التخصيص 4 = N‏ تعنى تخزين العدد 4 إلى محتوى المتغير 27 . (إنى يقم ا( 
(5) الخطأ فى نتيجة حساب أى معادلة يعتبر خطأ لغوى (82202 )Syn tax‏ . (أبنوان) 
(1) القيمة النهانية للمتغير (.8) بعد تنفيذ المعادلة التالية: 2 / 6 +.9.ت ۸ هی 11 : 
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الكمبهوتر وتكنولوجيا المغلومات والإتضالات 
أسئلة الوزارة 


م ضع علامة ر أمام العبارة الصحيحة أو علامة ربن أمام العبارة الخطأ : 

( ) . تتميز لغة ۷8.61 بالتعامل مع أنواع مختلفة من البيانات‎ )١( 

(۲) يؤخذ على لغة ۷8.N ٤1‏ التعامل مع أنواع مختلفة من البيانات . 0 

(۳) جميع البيانات التى يتم إدخالها فى برنامج بلغة 578.211 يتم تخزينها مؤقتأ فى 

ذاكرة الكمبيوتر . 

)٤(‏ جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية. 

(9) المبرمج الجيد الذى يُحسن ترشيد المساحة التخزينية فى ذاكرة الكمبيوتر . 

(1) يُصنف قيمة مجموع درجات الطالب ضمن البيانات الرقمية الصجيحة . 

(۷) يُصنف قيمة اسم الطالب ضمن البيانات الرقمية المتنوعة . 

(۸) يُصنف قيمة نوع الطالب (ذكر) أم (أنثى) ضمن البيانات المتنوعة المنطقية ( 

(۹) صورة الطالب يمكن تصنيفها ضمن البيانات الحرفية . 0 

( قيمة مرتب الموظف يمكن تصنيفها ضمن البيانات الرقمية الغير صحيحة.‎ )١١( 

)١١(‏ كل بيان يُخزن فى ذاكرة الكمبيوتر يشغل مساحة تخزينية ومدى معين حسب نوع 
البيان . 2 ( 

)١5(‏ نوع البيان يُحدد حيز التخزين الذى يشغله فى ذاكرة الكمبيوتر ومعرفة الحد الأدنى 


2 


حر ...لير .لي .سر a‏ 
ناا ٹا نه س نح 


والأقصى لقيمته . ) ( 
)١7(‏ يُقصد بالمتغيرات فى لغة ۷/8.81 مخازن بذاكرة الكمبيوتر لها اسم ونوع... ( ( 


)١ 4(‏ الإعلان عن متغير فى لغة ۷8.٤1‏ يعنى تحديد اسمه ونوع البيانات . ) ( 
)١5(‏ الإعلان عن المتغيرات فى لغة '5/13.21131 يساعد فى.ترشيد استخدام ذاكرة 
)١١(‏ الإعلان عن المتغيرات مسألة شكلية » لأن لغة N۴1‏ ۷8 تتعرف على المتغيرات 


وتحدد نوعها تلقائياً . 0 1 
)١۷(‏ الجملة التالية Dim 1” Name As String"‏ للإعلان عن متغير باسم String‏ 


ونوعه F_Name‏ .„ ) ( 
)١(‏ الجملة التالية "Dim F-Name As String"‏ للإعلان عن متغير باسم F_Nagıe‏ 
ونو ع4 String‏ . 2 ) 

0 . جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه‎ )١5( 
( جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه وقيمة الثابت.‎ )” *( 


( 

( 

ع( 
1 ا الفصل الدراسئ الثانئ صر 


الكمتيوتر وتكنولوجيا المخلومات والإتطالات 


. يعتبر اسم متغير خطأ لأنه يبدأ برقم‎ 5501697051١ 
. يعتبر اسم متغير صحيح‎ 55017 )۷( 
يعتبر اسم متغير صحيح على مستوى الحدث . (ثرائي)‎ N4٩ )۲۲( 
يعتبر اسم متغير: صحيح على مستوى التصنیف 12585ء 1"075021. (إثرائى‎ N2۳٥8 )۲٤( 
. يستخدم أمر م51 فى الإعلان عن المتغيرات‎ )١5( 
. يستخدم أمر ا فى الإغلان عن الثوابت‎ )۲۹( 
. (فقة يستخدم أمر ؛وجره© فى الإعلان عن المتغيراث‎ 
: . يستخدم أمر ؛ومه0© فى الإعلان عن الثوابت‎ )۲۸( 
عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة‎ ۷B .N ٤۲ الثوابت فى لغة‎ )۲۹( 
3 . لا تتغير أثناء سير البرنامج‎ 
٠ (8؟) الثوابت فى لغة 7728.711 عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة‎ 
00 . تتغير أثناء شيز البرنامج‎ 
( Sax Err الخطأ فى نتيجة حساب أى معادلة يعتبر خظأ لغری‎ )"7( 
( . 1081081 1520: (؟") الخطأ فی 'نتيجة حساب أى معادلة يعتبن خطأ منظقى‎ 
يطلق عليه خطأ لغوى‎ ۷8.٤٣ الخطا الى يُظهر أثناء تشغيل أو تنفيذ برنامج‎ )"*( 
0 . "Syntax Error" 
يطلق عليه خظأ أثناء التشغيل‎ ۷8.٤1 الخطأ الذى يظهر أثناء اتنفيذ برنامج‎ (4) 
0 . "Run time Error" 
. )11( القيمة النهائية للمتغيز × بعد تنفيذ المعادلة التالية "4 * 2 + 3= ×" هى‎ )٠١( 
) 


٠ )20( القيمة النهانية للمتغين »أ بعد تنفيذ المعادلة التالية "4 * 2 + 3 = ×" هى‎ )۳١( 
) 


اختر الإجابة المناسبة لإكمال كل عبارة مما يلى : 
)١(‏ قيمة أسعار الأدوات المكتبية يمكن تصنيفها كبيانات : 

[ أ ] رقمية صحيحة [ب] رقمية غير صجيحة [ج] متنوعة 
(۲) قيمة أسماء المواد الدراسية يمكن تصنيفها كبيانات : 

[ أ ] متنوعة [ب] رقمية غير صجيحة [ج] خرفية 
(؟) نوع البيان المخزن مؤقتاً فى ذاكرة الكمبيوتر يحدد : 

[أ] حيز تخزينى ومدى قيمته ‏ [ب] اسم وحيز تخزينى ‏ [ج] حيز تخزينى وقيمته 
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البيانات Data‏ الكم هوقو وتكنولوجيا المعقلومات والاتصالات »لقائو 
)٤(‏ الصيغة الصحيحة للإعلان .عن متغير المرتب ه521 هى : 
Dim Salary As Integer [ Î ]‏ 
]ب[ Dim Salary As Byte‏ 
Dim Salary As Decimal [+]‏ 1 
)١(‏ الصيغة الصحيجة للإعلان عن متغیں العنوان راز هی : 
Dim City As String ] Î ]‏ 
]ب[ Dim City As: Byte‏ 
]ج[ Dim City As Decimal‏ 
(5) الصيغة الصحيحة للإعلان عن متغيز الاسم N5٥‏ ۴ هئ : 
Dim F_Name As Integer [ Î [‏ 
]ب[ Dim F_ Name As String‏ 
Dim F_Name As Decimal [+]‏ 
(۷) الصيغة الصحيحة للإعلان عن متغير النوع “ع1 م660 هى : 
Dim Gender As Decimal [Î ]‏ 
]ب[ Dim Gender As Integer‏ 
Dim Gender As Boolean [+]‏ 
(۸) الصيغة الصحيحة للإعلان عن متغير الاسم ص۴4 هى': 
[أ] Din F_Name As String‏ 
]ب[ Dim F Name As String‏ 
Dim F Name As Char [+]‏ 
(۹) الخطأ الذى يظهر بعد تشغيل برنامج بلغة .N٤1‏ ۷8 يسمى 
Syntax Error [‏ [ب] Runtime Error [+] Logical Error‏ 
)٠‏ الخطا الذى يظهر أثناء كتابة كود بلغة 81 8.N‏ ۷ يسمى : 
Runtime Error [>] Logical Error [qy] Syntax, Error [‏ 
) الخطأ فى ناتج تشغيل كود بلغة ۷8.۴1 يسمى : 
Syntax Error [‏ [ب] Runtime Error [+], Logical Error‏ 
) الناتج النهائى للمتغير × للمعادلة 4 */2 + 3=×! هو : 
EE EE Nl‏ 
) الناتج النهائى للمتغير ۷ للمعاذلة "2 + 4/ 16-12 ك ۷ ".هو,: 
EE AEA 1‏ 


ا 1 الفصل الدراشى الثاتى 2 


الكميهو تو وتكنولوجيا المغلومات والإتصالات 


)١ 5(‏ جملة الإعلان عن متغير 5328 وى × ص51" تعنى الإعلان عن : 

[ ] متغير اسمه × ونوعه حرفى "508" . 

[ب] متغير اسمه "ع5" ونوعه × . 

[ج] متغیر مجهول ليس له اسم ونوعه "'ع12ا5" . 
)١5(‏ جملة الإعلان الصحيحة عن متغير رقمى غير صحيح اسمه ۷ هى : 

Dim y= Decimal [3]. Y As Decimal [4] ٠ Dimi Y as Decimal [ Î ] 
: اختر الاسم الصحيح لمتغير اسم الطالب‎ )١١( 


Name** ]ج[‎ st name ]ب[‎ st_name [ Î] 
: اختر الاسم الصحيح لمتغير عنوان الموظف‎ )١( 
(Address) ]ج[‎ E_Address ]ب[‎ 5Cairo [ Î] 
أضماء المتغيرات التالية صحيحة على مستوى التصنيف 180:11 ما عدا: (رإثرائی)‎ )۱۸( 
_st_text ]ج[‎ Text ]ب[‎ st_text [ Î] 


(۱۹) عند الإعلان عن الثابت الرياضى ( ط) نستخدم الكود : 
Dim Pi As Single [Î ]‏ 
]ب[ 3.14 = Dim Pi As Single‏ 
]ج[ 3.14 = Const Pi As Single‏ 
)3١(‏ عند الإعلان عن ثابت عجلة الجاذبية الأرضية نستخدم الكود : 
As Single ] 1‏ ع Dim‏ 
]ب[ 9.81 = As Single‏ ع Const‏ 
As Single = 9.81 [+]‏ ع Dim‏ 
)۲١(‏ الإعلان عن متغير عدد أفراد الأسرة راز صهC_۴‏ بقيمة ابتدائية ۲ هو : 
Dim C_Family As Single = 2 [ Î ]‏ 
Const C_Family As Integer = 2 [ Î]‏ 
]ج[ 2 = Dim C_Family As Integer‏ 
)۲١(‏ إذا وجد خطأ فى نتيجة حساب مساحة مستطيل فى برنامج » يعتبر هذا الخطأ : 
Run time Error [+] Logical Error [Ç] Syntax Error ] 1 1‏ 
(۲۳) رسالة الخطأ التى تظهر عند كتابة الكود "8366 ۸$ × 10126851011" » يمكن 
تصنيفها خطأ : 
Run time Error [+] Logical Error [+] Syntax Error [ Î ]‏ 
(5 ") الناتج النهائى للمعادلة "2 / 4 + 2- 12 = ۷" هو : 


121 [ب] 7 [ج] 9 
)١5(‏ الناتج النهائى للمعادلة "2 /(4 :+-2):-.12:-5" هو : 
1[ 12 [ج] 7 [ج] 9 


2 الفضل الدراسى الثانى | 1 


البيانات Data‏ الكمجهو تو وتكنولوجيا المغلومات والإتصالات 


© أسئلة عامة على الفصل <233۳ 


2 اختر الإجابة الصحيحة لكل ما يأتى : 1 
)١(‏ من أولويات تنفيذ العمليات الحسابية , العملية التى تسبق عمليتى الضرب والقسمة هى : 


(1) الأس (ب) الطرح 
(ج) الجمع (د ) كل ما سبق 

(۲) يمكن الإعلان عن الثوابت أو المتغيرات لاستخدامهم على مستوى : 

“01295” (ب) التصنيف‎ “procedure” الإجراء‎ (Î) 
ب‎ ٤ غ“ (د) کل من‎ ye7 (ج) الحدث‎ 

(۳) حدد قيمة × بعد تنفيذ المعادلة الحسابية التالية : 4 * (2+2) = × 
(61)1 (ب) 10 

(ج) 16 (د )71 

0( .......... هى أخطاء فى الصيغة العامة لأوامر اللغة ٠ء‏ تحدث عند كتابة الكؤد بشكل غير سليم . 
(أ) أخظاء لغوية "Syntax Errors"‏ (ب) أخطاء منطقية "11015 وزع 10" 
)ج( أخطاء التشغيل "Runtinie Errors"‏ (د ) كل مااشبق صحیح 

(©) حدد جملة التخصيص فيما يلى : 

)أ( A+4=22‏ (ب) 9=° 
(ج) 14*3/2 = 135 )5( 4+ A+4=22*A‏ 


7122 أكمل الإجابة الصحيحة مما بين القوسين : 
٠ =(‏ الثوابت والمتغيرات » Dim * Const » / < RE‏ < & < #ء 
أثناء'التشغيل (Byte < ^ « + ¢ “Runtime Error”‏ 
(۱) للإعلان عن الثوابت فى لغة 78.۴1 نستخذم الأمز ani, E‏ 


(۲) نطاق استعمال O E ET‏ ..:..............ايتحدد بمكان الإعلان عنها . 
(۳) الأخطاء 


...................اتستخدم كمعامل لأمر التخصيضص فى الفيجوال بيزيك . 


(۷) الأسطر التى تبدأ بكلمة .. فى نافذة الكود تستخدم فى كتابة الملاحظات . 
(۸) المتغير من النوع .................... يأخذ القيمة عدم أو 1815 . 


1 الفضل الدراسى الثانى Ez‏ 


1 
ا الكم جوتو وتكنولوجيا المغلومات والإتضالات 


02 ضع علامة > أمام العبارة الصحيحة وعلامة ر أمام العبارة الخطأ : 
)١(‏ ليس من الضرورى الالتزام بقواعد لغة البرمجة عند كتابة كود البرنامج . ) 
(۲) نطاق استعمال المتغيرات والثوابت يتحدد بمكان الإعلان عنها فى لغة 578.711 .( 

(۳) لا تسمح بيئة التطوير 1587“ بوجود الأخطاء اللغوية والنحوية E٣0۲7‏ :512“ فى 
نافذة الكود “Code Window?”‏ . 2 
)٤(‏ من أولويات تنفيذ العمليات الجسابية » عملية الجمع أو الطرح يجب أن تسبق عمليتى 

الضرب أوالقسمة . 
(5) قيمة (ط) الرياضية التى تساوى ٠,٠١‏ هى مثال للقيمة الثابتة . 
(1) إذا تداخلت الأقواس وتعددت فى التعبير الحسابى فإن تنفيذ العمليات داخل الأقواس يكون من 
الداخل إلى الخارج * 2 

(۷) أخطاء التشغيل ٤۲۲۵۲"‏ 121116" تحدث عند تخصيص قيمة أصغر أو أكبر من المدى 
المسموح به لنوع البيان المستخدم . 0 

(۸) للتعامل مع البيانات ( معالجة البيانات ) فى ذاكرة الكمبيوتر ( 124874 ) » الابذ أن يحدد لها 
إسم معين. ) 

(1) كلمة 1362 A1‏ من الكلمات المحجوزة التى لا تستخدم أثناء تسمية المتغيرات ؛ . ( 

)٠١(‏ الطرف الأيمن فى جملة التخصيص هو مكان القيمة » والطرف الأيسر هو اسم متغير أو 
اسم ثابت وتخزن فيه القيمة بالطرف الأيمن . 

حدد الأخطاء فى الأكواد التالية ثم حدد نوع الخطأ : 

Din My_D As Date )١( 

D=R*+374-2 )0 

Const a, As Single (F) 

83 اختر من العمود ر 13 ) ما يناسبا العمود ر۸ ) : 

/ i» نوع من البيانات يسمح بتخزين الكسور‎ | )١( 

(۲) | معامل التخصيص هو (ب) 3 

(۳) | نوع من البيانات يسمح بتخزين رقم صحيح )ج( | Decimal‏ 

Start Debugging لعمل‎ | (6) 


F5 


(©) | تستخدم لتنفيذ عمليات الضرب 
Integer‏ 


الفصل الدزاسى الثانق | | 


1 
البيانات Data‏ الكميجوتر وتكنولوجيا المغلومات والانصالات 


أسئلة وردت بامتحانات 222 2 فی الكمبيوتر 


E 
ن‎ 12 1 ORE عا مستي ا‎ 
معامل الربط ,ببب فة 'للفصل بن کل ار وا (الشرقية)‎ )۲( 
الي احا لح الككط ردي لاس الست تساك اك ا‎ 
ك كراسي‎ 


(القليوبية) 
ر مچزد Ck‏ الثابتآفى لغة ۸6 Basie.‏ 7151 فان . .+ هذل الثابت لا 
يمكن تغيير ها أثناء التشغيل . افر 
(5) جنران الطالت يتم تخزينه فو متغير رمق لوج 9 0-0 )9 
(۷) المتغير العددى الذى يأخذ قيم عددية صحيحة من (0 1 د هنل الو" 6 7 
(۸) المتغير الذئ ياخد القيمة م7 أو 56د من ا هص ات .2 يرن 
(1) ناتج تنفيذ الصيغة الحسابية 4٨2‏ + 5 هو .. E‏ م 
03 ا تحدث عند تخصيص قيمة أصغر أو أكبر من المدى المسموح به لنوع البيان. ار 
|* سن" :| ضع علامة ز”) أمام العبارة الصحيحة وعلامة رمم أمام العبارة الخط | 
(۱) من قواعد اولویات تد تنفيذ العمليات الحسابية أن عمليات الجمع والطرح ت مارح لطبا كا ااقترري . 


والقسمة . (الغربية) ( 
(؟) نتيجة تنفيذ العملية التالية ( 4 * 8 + 10 ) إذا كانت 2 = 5 هى 28 (المنوفية) 
(") نقوم بالإعلان عن أسمَاء المتغيرات لمعرفة أسماتها فقط راع 73 ( 
(4) الكود التالى يتضم خطا منطقى : eاع¡؟ CED Const pi As‏ 
(5) بعد تنفيذ 'الضيكة الحشابية 'اجاة) * ۳ + ٠‏ يكون الناتج هو ه (بنئ سويف) ( 
() عند از نیم ردو إا مرش اندم ولاه م عرض یروا ما 

المتغير سنجد أن القيمة التى تم تخزينها| چ . ٠٠‏ (الغزبيع ( ( 
0و من أولويات العمليات الحسابية ية القسعة 3 تسبق عتمّلية رفع الأس عند التنفيذ فى الفيجوال 

بيسك دوت نت (سؤهاج) ۲( ( 
(۸) يتم احتساب التعبيرات الرياضية بطريقة من المستوى الأعلى فى الأسبقيةمإلى المستوى 

الأقل فى الأمنبقية . ا ( 
(5) الثوابت هى قيم لا تتغير أثناء تشغيل البرنامج . (اہسکحری ے ) 


)١٠١(‏ الأخطاء المنطقية تحدث بسبب صياغة تعبيرات حسابية أو منطقية بصورة خطأ ؛ تؤدى 


إلى نتائج خطأ . LIS‏ ( 


| ا الفصل الدراسى الثانى ١‏ 


الكمجوتر وتكنولوجيا المغلومات والإتصالات 


)١(‏ يبدأ الإعلان عن أسماء المتغيرزات فى نافذة الكود باستخدام الح د 
As - Dêclare— Variable) _2 33‏ 
(۲) بعد تنفيذ المعاذلة الحسابية:.2 * 4 + 3 = × يكون الناتج هو: 


E SEE Ta بعد تنفیذ‎ )۳( 
e 


)٤(‏ برنامج 8as1٥.Ne†‏ 21و71 يبدأ تنفيذ العملياتت 
( الجمع والضربي- الوا اط باصتنا 
)١(‏ ناتج تنفيذ الصيغة الحسابية : HRY‏ (10- 
(5) قن :قؤاعد تسلمية e‏ أو"الثوايت فى VB.NET‏ لابد أن تبدا با 
E‏ أو شراطة لفل 00 E e‏ 


(الجيزة) 
٠, ) 13-22‏ بون سعيد) 
اسما صحيحا لمتغير . (Long Stipe - Byte - Age)‏ (الإسكندرية) 
)١ + 3‏ عدم الإلتزام بقواعد لغة البرمجة المستخدمة يؤدى إلى .. ا 
( ظهور رسائل خطا - عدم تنفيذ الكود - الحصول على نتائج > 
#دسة :أ أوجد اتج 2 الحسابية الآتية : 


)50 0 ,الا 


89 22 (بدئ تبن GHA‏ اق 
ا 
رالسور )10 


ع رتب السطور الاتية وفقا 0 


2 ة من اليسار إلى اليمين أيهما أولا . 
تتفيذ العمليات داخل الاأقواس من للخل إلى الخارج . 


| تتفية عمليات الجمع أوالطرح من اليسار إلى اليمين أيهما اول . 


تنفيذ الأس . 


( 
لت الفصل الدراسى الثانى ا[ َ 


يتعرف استخدامات الجمل الشرطية ” 0 
يستخدم جملة ” ليوا 
يستخدم جملة ” 6 


يستخدم جملة ” 


الفضل الدراسى الثاتى 


الكميجوتر وتكنولوجيا المغلومات والإتضالات 


أي اموضوع اتقات التفرع 


>« نفهيدك : 


# التفرع فى خرائط التدفق ”171910/6173/4“ هو ( اتخاذ قرار ) أو اختيار تنفيذ مجموعة 
خطوات معينة أو مجموعة خطوات أخرى بناءَ على إجابة سؤال معين . 
# الكود الخاص بالتفرع هو تطبيق خطوات الحل 810011417117 مع الالتزام بقواعد لغة البرمجة. 
# للتعبير عن التفرع برمجياً نستخدم جمل معينة فى لغة البرمجة مثل : 
جملة (15...11©1) وجملة (lf...Then... Else)‏ وجملة ..)Select...Case)‏ إلخ 


الصيغة العامة لجملة الشرط ۲'۸٥۸‏ ... ۴| : 


IF Conditional Expression ) تعبير شرطى‎ ( 7 


O 
© الام أو الارامن الف شرف يتم تنفيذها فى حالة تحقق الشرظ ء01‎ 
© 


تعنى نهاية جملة الشرط 1۴ ٤۵‏ 


٭ جملة ...۲٣۴ ٠۸‏ ۴| الشرطية تستخدم فى حالة وجود اختيار واحد ر بديل واحد ) فقط . 
لل جملة ( ۱۴۰.٣٣۵٢‏ ) تتكون من الأمر ۴ا › ثم يأتى بعدها (تعبیر شرطی) ثم 
الأمر 71761 على سطر واحد . 
© أيلئ' السطر الذى يحتوى على 11861... 1# :الأ أو مجموعة الأوامر المطلوت 
تنفيذها إذآ كان ناتج ( قيمة ) التعبير الشرطى صواب ”1216“ . 
2# تنتهى جميع جمل ۴| الشرطية ب ۴ا E۵ 16 ( E٣۹۵‏ تخبر بانتهاء جملة الشرط ) 
[* الاجظ :أ إذا كانت قيمة الشرط أو التعبير الشرطى صحيحاً ”1:16“ يتم تنفيذ الأمر 
أو مجموعة الأو امز التى تلى كلمة 77136 وحتى 20011 . 
٭ إذا كانت قيمة التعبير الشرطى خطأ ”12156“ يتم تنفيذ الأوامر التى تلى 1# 250 . 


3 الفصل الدراسى الثانى ا | ا 


سک 


Branching التفرع‎ 


الكميجوتر وتكنولوجيا المغلومات والاتضالات 


Conditional Expression التعبير الشرطى‎ 


× التعبیر الشرطى له ناتج منطقى إما ( صواب ”عںإآ“ أو خطأ “False”‏ ( 

٭ التعبير الشرطى يتكون من ثلاثة أجزاء . 

- التعبير الشرطى : يتكون من معامل مقارنة يسبقه قيمة مجردة » أو قيمة متغير أو ثابت 
أو ناتج تعبير حسابى . يتم مقارنته بما يأتى بعد عامل المقارنةاإما قيمة مجردة »أو 
قيمة متغير أو ثابت أو ناتج تعبير حسابى » فإذا تحقق الشرط يعنى أن نتيجة التعبير 
الشرطى صواب ۲۲٠٠‏ ويتم تنفيذ كود معين » وإن لم يتحقق الشرط يعنى أن نتيجة 
التعبير الشرطى خطأ ۴۸۲ فيتم تنفيذ كود آخر  .‏ ' 


متغير أو ثابت 1 

IF A > 5‏ ا 
* فى المثال طرفى التعبير الشرطى هما : المتغير أو الثابت ۸ والقيمة المجرده 5 
٭ معامل المقارنة الموجود بين الظرفين هو الذى يحدد ناتج التعبير الشزطى » فإذا كانت 
قيمة المتغير أو الثابت ۸ أكبر من 5 فإن ناتج التعبير الشرطى يكون صواب ۵د٣٣‏ » 
ويكون ناتج التعبير الشرطى خطأ ©5215 إذا كانت قيمة المتغير أو الثابت ۸ أقل من 5 
(رمشال " ) التعبير الشرطى : ۸ => 168 )0 
| قيمة متغير أو ثابت عامل مقارنة متغير أو ثابت 
IF B 2 A‏ 


- یکون ناتج التعبير الشرطى ©7104 إذا كانت قيمة 8 أقل من أو تساوى ۸ . 
- ويكون ناتج التعبير الشرطى خطأ ©1315 إذا كانت قيمة 8 غير ذلك . 


التعبير الشرطى : 2 * 3 -8 <> 0 )1 )ننج 


| قيمة من تعبير حسابى عامل مقارنة متغير أو ثابت 
IF C >< A gS 1‏ 


- يكون ناتج التعبير الشرطى صواب ©7711 إذا كانت قيمة 0 لا تساوى قيمة التعبير الحسابى . 
- ويكون ناتج التعبير الشرطئ خطأ ©1315 إذا كانت قيمة € غير ذلك . 


1 | الفصل الدراسى الثانى ١‏ 


الكميجوتر وتكنولوجيا المغلومات والإتطالات 
* يوجد را معاملات مقارنة فى لغة فيجوال بيزيك دوت نت : 
1 


المعامل_ العنى | المعامل العنى | العامل | العنى ٠‏ 
= شاوی | 7< أكبر من > 7 ٠‏ اضغر من 
<> لاتساوی | =< اکبرمن أو تساوق | -> | أصغز من أو تساوى 


< أكبر من 


2 اص من "Variable"‏ 
=< أكبر من أو: يساوى 


1 
=> أصغر من أو يساوى 2 


1 يساوى 1 ثابت‎ = IfB = 2م‎ 
Constant’ يساوي‎ IfC <> A-3*2 
If A^2 = B/C 


If ) X >= 50) Then °? جملة الشرط‎ 


Yes 


الرسالة ° ( ”تاجح“ MsgBox(‏ 


نهاية جملة الشرط” ١‏ , تا 


YE تاتج التعبير الشرطی 10 <> ۸ يكون ع1”315 إذا كانت قيمة ۸ تساوى عي‎ )١( 


(۲) أكتب تعبير شرطى يختير قيمة المتغير ۷ إذا كانت أقل من صفر 


ملق" الفضل الدراسى الثاتى ا 1 


1 الكميجوقر وتكنولوجيا المغلومات والإتصالات 

* قدريب : نفذ الخطوات التالية لإنتاج برنامج : 

* المطلوب : إدخال درجة الطالب ٠‏ وعند:التقر:ة على زر "تتيجة "١ء‏ إذا اكانت الذرجة أكبر 
ا ا ا ( ناجح). 

: صمم نافذة النموذج التالية‎ )١( 


| اعليه (نتيجة ).. 


Private Sub 1 E 


إعلان متغير ” Dim X As Single‏ 
أمر تخصيص” - X = Me.Textbox1.1ex‏ 
جملة الشرط: 1X >= 50 Then‏ 
عرض الرسالة ” (”ناجح“ )عده 2/1508 


نهاية جملة الشرط ” 


نهاية الإجراء ‏ 


End If; 


„End sub 


1 7 الفصل الدراسن الثاتئ ١‏ 1 


: الكمجوتر وتكنولوجيا المغلومات والإتصالات 
(۳) اضغط على مفتاح ( ۴5 ) لتشغيل البرنامج . 
)٤(‏ أدخل قيم مختلفة ( 30 و 50 و 75 ) مع النقر على زر ( نتيجة ) ٠‏ تلاحظ التالى : 
* ظهور صندوق رسالة ( ناجج ) عند إدخال أى درجة أكبر من أو تساوى (.50 ) » 
يعنى عندما يكون ناتج الشرط صواب ونم“ . 
* عدم ظهور صندوق رسالة عند إدخال أى درجة أقل من ( 50 ) › يعنى عندما يكون ناتج 
الشرط خطأ عء| ھ۴“ فينفذ ما بعد ۴| ۴٣۵‏ وهو 5 لمع » يعنى إنهاء الإجراء . 
9 بمكن كتابة جملة الشرط ]! الشابقة على سطر واحد دون كتابة ۴| 00 كالتالى: 
Private Sub Buttonl_Click(BjVal send‏ 


Dim x AÃs Single 
X = Me.TextBox1l.Text 


If x >= 50 Then MsgBox("ججli")‎ 


End Sub 


If ...Then ... Else ام‎ 


€3 جملة 2156 ... 7060 ١]...‏ : تستخدم فى حالة وجود اختيارين ر بديلين للتفرع ): 
٭ إذا كان ناتج التعبير الشرطى "ع ں۲۲" يتم تنفيذ مجموعة الأوامر (1 20016) » 

- وإذا كان ناتج التعبير الشرطى "156]" يتم تنفيذ مجموعة الأوامر (2 0016©) . 

الصيغة العامة لجملة الشرط Thên ... Else‏ ... ع١‏ : 

629 IF Conditional Expression (تعبير شرطى)‎ Then 

الكود الذى يتم تنفيذه فى حالة تحقق الشرط (1 0046© ) © 

© | Else وإلا‎ 

الكود الذى يتم تنفيذه فى حالة عدم تحقق الشرط (2ءلمع) © 

نهاية جملة الشرط ‏ 1 همع | © 


7 جملة 2156 ... مع78 ... ۱۴ تتكون من ]1 ثم يأتى بعدها تعبير شرطى ثم الأمر 
م176 على سطر واحد . 


1 الفصل الدراسى الثانى آ آ 


التفرع Branching‏ الكم جهو تو وتكنولوجيا المغلومات والاتصالات 

€ يلى سطر ( ٥٣‏ طً۲... 1۴ ) الكود المطلوب تنفيذه إذا كان ناتج التعبير الشرظى 
صواب ”ھآ“ . 

2# ثم أمر ه15 على سطر بمقردها ومعناها ( وإلا ) . 

© يلى سطر هوإع الكود المطلوب تنفيذه إذا كان تاتج التعبير الشرطى ”ه215“ 
تنتهى جملة 1۴ الشرطية ب ۴ا 200 


٭ إذا كان ناتج الشرط أو التعبير الشرطى صواب ”٥عں “۲٣‏ ( تحقق الشرط ) يتم 
تنفيذ الكود الذى يلى كلمة 7167 وحتى كلمة مئاع . 


٭ وإذا كان ناتج الشرط أو التعبير الشرطى خطأً”م15جح» ( عدم تحقق الشرط ) 
يتم تنفيذ الكود الذى يلى كلمة ع215 وحتى 16[ End‏ . 


* تدريب : عدل الكود السابق ليظهر صندوق رسالة ”×80 ععهءوع“ به كلمة راسب فى حالة 
كانت الدرجة أقل من (50) . 
٭ أكتب الكود فى إجراء حدث »زام الخاصن بزر الأمز 80101 المكتوب عليه (نتيجة) 


Private Sub Buttonl_Click 
Dim X As Single 
X = Me.Textbox1.Text 
If X >= 50 Then 
MsgBox( “ججli”)‎ 
Else 
MsgBox( )”ر اسب“‎ 
End If 
End Sub 


٭ تستخدم م5!]ع لتنفيذ ما بعدها إذا كان ناتج الشرط خطأ ”٥5ا۴“‏ . 
٭ اضغط مفتاح ( ۴5 ال ع اكاك اواك اجا( ا ره 

ظهور صندوق رسالة ( راسب) عند إدخال درجة أقل ... || ف 
من 50 يعنى عنذما يكون ناتج الشرط خطأ ”اھ۴“ . | 


1 الفصل الدراسى الثانى E‏ 


الكمججوتر وتكنولوجيا المغلومات والإتصالات 
يمكن كتابة جملة 10196 .> 1۴۰.۴۲٤٥‏ فى سطر واحد بدون كتابة 11 E۸۵‏ کالتالی: 


Private Sub Button1l_ Click (ByVal Sender As System. Object, 
Dim X As Single 
X = Me.TextBox1l.Text 


If X >= 50 11671 MsgBox("aجi")‎ Else MsgBox ("راسب")‎ 


End Sub 


٭ تدريب :قم بتنفيذ مشرو ع c٥۲‏ ھزہ٣۴“یحتوی‏ على نموذج ”روح“ : 

*# البرنامج يستقبل قيمة من خلال صندوق نص 7145071 ٠‏ ثم يخزنها فى المتغير )N(‏ . 
# يظهز صندوق رسالة ( الرقم زوجى) أو ( الرقم فردى) . 

#أكتب الکود فى إجراء حدث >ء اا الخاص بزر الأمر :810110117" . 


Private Sub ع81140111_0111‎ 
Dim N As Single 
N =Me .TextBoxk1.Text 
If (N Mod 2) = O0Then 
Msg80ox( ”ال رقم زوجئ“‎ ( 
Else 
1/151 (”الرقم فردى“ )ده‎ 
End lf 
End Sub 


N 5 ES 1000‏ 
#الدالة ” ل10 : تستخدم للحصول على باقى القسمة . مثال: (3 71034 10) الناتج 1 
* الكود : )N 1100 2 (- 0 The”‏ 1۴ يستخدم لاختبار قيمة ( )١N‏ بواسطة 

التعبير ( 2 )N M0٩‏ : 
-إذا كانت قيمة ( )١‏ تقيل القسمة على ( 2) بدون باقن (الباقى صفر) يكون الرقم زوجى 
يعنى اتحقق الشرط فيظهر ضتدوق الرسالة ” ×80 21/655396 به عبارة ( الرقم زوجى ) 
-إذا كانت قيمة.( [8) لا تقبل القسمة على ( 2) بدون باقى يكون الرقم قردى › يعنى عدم 
تحقق الشرط ء فيظهر صندوق الرسالة ×86 9/1255306» به غبازة ( الرقم فردى ) . 


2 الفصل الدراسئ الثانى 1 ١‏ 


Branching التفرغ‎ 


ے تانر 


ضع علامة ر 7 مام الهبارة | لصحي 

5 ( باستخدام الدالة ”م *فى التعبير‎ )١( 

011:7. Then ... Else ) فى جملة‎ (۲( 

() التعبير الشوطى لہ ناتج مط إن وکو 

(2) لا يسمح ۷(8.N٥‏ بكتابة جملة ۴[ على 

() نستخدم جملة ©1815 ... ٣٥ط ...٣‏ 1۴ فی حالة وجود بديل (اچتی 

(5) إذا كان ناتج:التعبير الشرطى خطأ ”اھ۴“ تم تتفي 0 لتلى تلى الام 
End If‏ . سه eT‏ 


0372 التفرح فى خرائظ التدفق ” :5 
مجموعة خطوات أخرى [ب] بناءَ 


(۸) الدالة 7 64 ۴ تستخدم لإيجاد باقى ا 5 ا 
(9) كود البرمجة الخا صر بالتفرع هو خطوات الحل (Algorithm)‏ مع الالتزام بقواعد 


( رة‎ 
( 8 تنتهى جملة 1۴ التفرعية بِالامَرَ‎ )٠١( 
1 : : أقرأ الكود التالى‎ 
Dim Age, Mark, Total As Single 
Age - 5 7 
Mark = 90 
IfAge <26 Then 
`. Age = 6 
`` Mark = 100 
End 1f 
Total = Mark 52 


7 6 قيمة المتغير ع على تساوى...... .12.4 لك...‎ )١( 

(۲) قيمة المتغير: Nar)‏ تساوى ...ا لج .../].:..! 

0 قيمة المتخير [هإه]' تساوى ...ماو |4/.....!إ..2]) 1 5 

: ليو أكمل التالى بالكلمات المناسبة ) D2‏ 

)١(‏ فى التعبير الشرطى: ( 50 =< BESA ) Degree‏ والقيمة ا 


(۲) فى جملة (56 د *11) يتم تتفیذ الكود الذى يلى أمر Ese‏ ذا كان .كان ناتج التعبير 
عد كه ا 1 


الفصل الدراسى الثانى 


3 ةق نمت بع تفي او ت هام نة تفي ع 
KSOMOZSO TS Kal 8015-2‏ 


IfX <Y Then 
Z=K+*j 
X=X+1 
Y= Y-1 

Else 
Z=K-Y 
X=X+2 
Y=Y-2 

End If 


اختر الإجابة الصحيحة : 


(۱) نستخدم معاملات فى تكوين التعبيورات ية. 
]١[‏ الحسابية, ١‏ [ب] الشرطية [د ] كل ذلك 


(؟) صيغة الأمر ( 156 h7‏ ...1۴ ) تستخدم فى حالة وجود 
[] اختيار واحد 6 “كتيازين [ج] أكثر من اختيارين2 [د ] كل ما سبق 


0( التعبير ال طئ اکونا من 
طرفين 5 [ب] طرف واحد وعلامة (-) 
١‏ [ج] ثلاثة أجزاع) [د ] أربعة أجزاء 
(4)“معامل المقارنة التالى يعبر عن ( عدم التساوى ) 


I EN 2-1 2 
TI B) ظی رالتالى:‎ TD 

: /ك‎ E 
i O ٩٣غ‎ ( تنتھی جميع جمل التفرع‎ )5( 


En End Stopflel \ للم‎ End (ب]‎ 1 ° Stop [Î] 
معامل المقارنة التالى يعبر عن ( أقل من أو التساواق)‎ )۷( 


SDI تک‎ 2 
هى‎ ) B= ESN TT )انو‎ ۸( 


[ | ] قيمة من.متغير آخر إا ف مجر 


الفضل الدراسى الثانى | أ 


التفرع (Branching‏ الكميجوتو وتكنولوجيا المغلومات والإتصالات لقائر 


© أسئلة وردت بامتحانات المحافظفات: 777775 


[|] تتبع الأوامر الآتية ثم اجب عن الأسئلة :[ بور سعيد] 
Dim HourWorked = 0‏ 


IF HourWorked > 40 Then 


Salary = HourWorked *5 + 100 
Else 

Şalary = HourWorked * 5 
End If 


)١(‏ قيمة الشرط ( 40 > Hour Worked‏ ) يساوى: 


False [e] True ]ب[‎ Equal [ Î] 
: قيمة المته 1 تساوى‎ )۲( 
120 [ب] 200 [ج]‎ 100 ] 
نز مق روينك‎ 21 ١[ اب] اقرأ الكود المقابل ثم تخر الإجابة الصحيحة:‎ 
اه‎ RE Be [ب] اقرأ الكود المقابل ثم [الغرية]‎ 


.. قيمة المتغير ۷ هى‎ )١( 
5-1 .. قيمة المتغير 2 هى‎ )۲( 


Dim 2 As Byte 
Y= 2-8 
Z= 4 

ضع علامة ر” أمام العبارة الصحيحة وعلامة (»م أمام العبارة الخطأ : 
)١(‏ إذا كانت قيمة المتغير ( 15 = ۸ ) وقيمة المتغير (.20 = 8 ) فإن ناتج تنفيذ الشرط 
( 8 =< ۸ ) يساوى ه1215 . 
)١(‏ تستخدم الدالة مم فى إيجاد ناتج قسمة عددين جمس صلل يا ي١‏ ا 
)١(‏ القیمة فى التعبیر الشرطى التالی: (۸ ,= 8) هى کیم کن متخي . 1١‏ ۵ا )ا 


(4) ناتج تنفيذ الصيغة الحسابية ( 302 * 2 ) بهو جسم EE‏ 
(5) أجملة ۲16٥... 8[6٥‏ ...1۴ يتم استخدامها فى جالة ما إذآ كنا نريد تتكية اد ردیلین, 
(1) يتكون التعبير الشرطى من أربعة EEE‏ [ اسبوان:] )<2 


(۷) يمكن الإعلان عن المتغير باستعمال أمر ص51 [الإسكتميت 
(۸) الصيغة 8+5-8 تعتبر صيغة صحيحة كام تخصيص ” [ المتؤقية] ( 


(5) إذاكانت قيمة المتغير ( الح وسو حي م د 
( <> ر ) هو True‏ . 1 الغربية ] 7 ( 


( البحيرة]‎ [ dE جملة ]0 تنتهى_ ب‎ )٠١( 


حر ے لمر a^‏ 


الفصل الدراسى الثانى 


الكمبجوتو وتكنولوجيا المغلومات والإتضالات 
اختر الإجابة الصحيحة مما بين القوسين : 
)١(‏ تنتهى جملة If ..Then .. Else‏ بأمز: ( j ( End 16 End Then - End Else‏ المتوفية] 
(۲) ناتج التعبير ( 8 2/00 42 ) هو : ( 25-52 2) [ المتوفية ] 
(1) يستخدم الأمر ...... للتحكم في.ترتيت تنفيذ أوامز البرنامج بناء على تحقق شرط معين . 
Then - Mod = Integer (‏ ... 11 ) [ بنى سويف ] 
(4) الأمر ......... يستخدم فى حالة ما إذا كان هناك بديلين ( كود (1) » وكود (ب) ) . 
(Boolean - If... Then - If... Then ... Else )‏ [الإسكدرية] 
ا 00 -10) وقيمة ( 15 = M1‏ ) فإن ناتج الشرط ( 7 =< N‏ ) يكون : 
Null - False — True (‏ ) [ المنوفية ] 
]١[ 2121‏ أكمل ما يأتى بكلمات مناسبة : 
)١(‏ جملة الأمراه819 ... عط ... 1۴ تنتهى ب...: 0 [اسوان] 
(۲) اتج تنفيذ الأمر ( 5 1/00 48 ) هو... - [كفر'الشيخ] 


[ب] أذكر المصطلح العلمى : [ دمياط] 421 
و جفلة تفرك ق ا أجدا بديلين )1 O (Code‏ 
(۲) دالة تستخدم لإيجاد باقى القسمة فى العمليات الخسابية ‏ / [ الجيزة ] 


2 بعد قراءة التعليمات فى العمود رب) ضع علامة ر”/م أَمَأم العبارة الصحيحة و 
مت كرا E‏ [ كفر الشيخ ] . 
"1 لوو a‏ 
عدا ل سيم 


Dim Computer, ERG, : كن يريج‎ 
Total, Avg As 166 40 م00 تساوى‎ † e #قيمة المتغيز‎ 


$ 


Computer = 40 ak 33 e 
SD 20 قيمة المتغير و11 عدر تساوئ‎ |١ 
11 Computer > 30 Then 3 يد‎ 
Total = Computer + English 1 SE 
Avg = Total /2 ( Computer > 30 ( تإتج التعبير‎ 
0 True يكون‎ 
Else 3 


وی 3 30 = Compiter‏ 
١‏ قيمة المتغير 10181 تساوى 56 26 = English‏ 

Total = Computer + English 
Avg = Total /2 

End lf, 


ا الفصل الدراسن الثانن | ا أ 


! قيمة المتغير ع۸۷ تساوى 28 


التفرع Branching‏ الكمهونر وتكنولوجيا المغلومات والإنصالات 


Select ... Case التفرع باستخدام‎ 


»د تستخدم عندما يكون:التفرع وعحمذا علئ قيمة متغيز"ؤاحد مغ وتجود شروط كثيرة . 
»* جملة (موه .. :96160) توفر القديد من الأكواد وتجعل الكود أكثر سهولة ووضوح . 
٭ يفضل استخدام جملة (856© ..86[1606) عندما'يكؤن التفرع“لأكثر من شرطين . 


الصيعه العامة لجملة Select ... Case‏ 


Select Case Variable 


الحالة الأولى © Case value1‏ 
الكود الذى سوف ينفذ إذا كانت قيمة المتغير,مساوية للقيمة Code ١‏ 


Case value 2 ‘ الحالة الثانية‎ e 
0 Code ۲ الكود الذى سوف يتغذ ذا كانت قيمة المتغير مساوية للقيمة‎ 


. الحالة الثالثة ‘ 3 Case Value‏ 
الكود الذى سوف ينفذ إذا كانت قيمة المتغير مساوية للقيمة ؟ 


الحالة الرابعة “ 
أضف عدد الحالات المطلوبة “٠‏ 


ی Case.else‏ 
الكود الذي سينفذ إذا كانت: قيمة,المتخيب غير مساوية لكل القيم السابقة Code‏ „ 


نهاية جملة التفرع End Select‏ 


# جملة 561601...0356 تشتخدح فى حالة وجود شروط عديدة ( بدائل كثيرة ) . 
)0 الجملة تتكون من هومن 06ه1ه5 ثم يأتى بعدها متغير :771516“ على سطر واحد . 
(۲) السطر التالى دعوو tءءاء؟‏ به الأمر موةء وهو يدل على المتغير ويليه الشرط. 
() السطر التالى لأمر 0256 به الكود المطلوب تنفيذه إذا تحقق الشرط . 
)٤(‏ يمكن تكرار طن ي والأوامر التابعة له أى عدد من الاحتمالات حسب البرنامج | 
. (ه) ثم التشرط.الافتراظبى وهو سطر هوإه 0356 يتم تنفيذ الأوامز التالية لهذا السطر 
إذا لم يتحقق أي شرط من.الشروط السابقة . 
)٦(‏ جهلة ( (Selet Case‏ تنتهى ب End Select‏ 
يجملة 


1 ا الفصل الدراسئ الثانئ 9 1 


الكميهوفور وتكنولوجيا المغلومات والإتصالات 


* المطلوب : : عند إدخال درجة الحرارة من خلال مربع النص "18601" والنقر على 
الزر ۸17 وان“ المكتوب عليه ( اختبار) » يعرض فى أداة عنوان " 12ط" عبارة 
( تساوى صقر ) أو عبارة ( فوق الصفر ) أو عبارة ( تحت الصفر ) .. 
خريطة التدفق متوافقة مع 4¢ ... 5166 


o ۲ UT 


0 Outpu' Output 
ت الصفز" "صقر"‎ 


تمن ریه التقفق دكات امكادية التفرع إلى أكثر من فرح من رهز اتخاذ القرار » 
حيث يحتوى رمز اتخاذ القرّارٌ على سؤال عن قيمة المتغير ((1) وحسب قيمته نتفرع 
ا كنا 

* نكتب الكود فى اة حدث مزاع لزر الأمر ۸1 ))٥‏ ں8 المكتوب عليه (اختبار) , 

Dim Degree As Single 


Degree = Me.TextBox1.Text 


Select Case degree 
Case 0 
Me. Label2. Text = “ ”صفر‎ 
Case وآ‎ < 0 
Me. Labe12. ext =°“ ”تحت صر‎ 
Case Is >0. 
Me. Labe12. Text = فوق صفر'“‎ 
End Select 


Catch.exÃs Exception 
EGBG "ادخل عدد'‎ ( 
Me. TextBox1. Focus( ( 
,1< Me. TextBox1. Text =" " ا‎ 2 
Ena Try استخدام 2311© ... ر٣٣ بالکود إثرائى‎ 


1 الفصل الدراسى الثانى 1 | 


التفرع Branching‏ «جيا المشلومات والإنضالات 


* من مفاهيم مادة الجغرافيا : مجرة ‏ كوكب. قمر - نجم - نيزك- شهاب :.: إلخ . 


قم بإنشاء مشروع بحيت تكوان واجهة المشروع هئ التموذج “۴٥١2۸‏ التالى : 
rE"‏ - . 


TextBox 


* المطلوب,: أكتب الكود اللازم بحيث عند اختيان أى عنصردمن أداة التحرين والسرد 
"080صو" يظهر: تعرريفه فئ صنندوق:النص ٥×"‏ طاعده 1" . 
8 ') اضف العناصر (مجرة._كوكب قمر _نجم ‏ نيزك شهاب) من خلال 
خاصية ورررمع] لأداة التحكم عره 9ن تمزه . 
(؟) اضبط خاصية تعدد الأسطر Multi bine‏ الخاصة ب 1عدهطءدع1' إلى القيمة ru٤‏ 
(۳( أكتب الكود التالى فى إجراء حدث SelectedIndexChang®d‏ لأداة ComboBox‏ 


Private Sub CombBox1_SelectedIindexChanged(BY ° 
Select Case CombBox1. Selëctediîdex “  ددخملا تخصيص رقم العنصر‎ 


الحالة الأولى عند اختيار أول عنصر الذى ترتيبة صقر 0 Case‏ 
” تجمعات كبيرة من النجوم المختلفة الأحجام والأشكال والأنواع “ = ×6 1ex80x×1‏ 
الحالة الثائية عند اختيار ثائى صف الذى ترتيبه ١‏ ء 1 Case‏ 
”جسم معتم لا يشع ضوء ولا حرارة ويستمد ضوءه وحرارته من نجم آخر “ > أجدج1. 1 80و77 
الحالة الثالثة عند اختيار ثالث صف الذى ترتيية ۲ 5 60582 
” جسم معتم أصغر حجماً من الكوكب يعكس ضوع الشمئن الساظع عليه ““ = Téx(Box1.1ext‏ 
الحالة الرابعة عند اختيار رابع صف الذى ترتيبه '” 9 03 
”” جسم مضيئ ملتهب يشع ضوء وحرارة ** = :دك 1عده 8اعته 17 
الحالة الخامسة عند اختيار خامس عنصر الذى ترثيبة Case 4 8 ٤‏ 
” جسم صلب كبير يحترق جزنياً عند اختكاكه بالغلاف الجوئ ““ - )×16 12208021 
الحالة الفيادسة عند,اختيان تبادس صف الذى ترتيبه © 0 8 Case‏ 


”جسم شماوئ صلب يسيح فى القضاء حول الشمس على هيئة سدهام ضوئية»' = ۲٥×‏ 1 جه 8)جدت 7" 
وإلا يتم تتفيذ الأو اهر التالية فى حالة عدم تحقق جميع الشروط السابقة ‏ “ ههلك مهمه 
(”” يرجى اختيار أحد العناصر “ ) ×80 Msg‏ 
نهاية جملة End Select ٠ Seleğt .. Case‏ 
End Sub‏ 


أ | الفطل الدزاسى الثاتى 8 


الكميهوتر وتكنولوجيا المغلومات والإتضالات 

ETD‏ تم كتابة الكود اعتماداً على ترتيب العناصر الذى يبدأ من الصفر داخل أداة 
التحكم × 086 ط66 :ا جيث العنصن الأول له ترتيب (0 = )105062 ) » 
والعنضر الثانى له ترزتيب (1 = 1306 ) ».وهكذا . 

. شغل البرنامج بالنقر على ( ۴5) + واختر أحد العناصر وتأكد من عرض تعريفه‎ )٤( 


أسئلة الدرس 


ضع علامة ر” أمام العبارة الضحيحة وعلافة زى أمام العبارة الخطأ : 
)١(‏ عدد اختبارات التفرع الممكنة مع استخدام جملة عواع... م©ع15... ۴| هو 2 . ) ( 
(۲) ينفذ الكود الذى يلى عواع فى جملة هواع...4...116| عندما يكون ناتج التعبير الشرطى 


صحيح (عنا10) . 0 ( 
(۳) المعامل & هو أحد معاملات المقارنة . 0 ( 
)٤(‏ الخاضية التى تشير إلى العنصر المحدد بالأداة ×80 Lis‏ هى SelectedIndex‏ ( ( 
(5) تستخدم جملة 6356 ..: ه5616 فى حالة اختبار أكثن من تعبيرين شر طيين (وجود أكثر من 

احتمالين للتفرع) . ) ( 
(1) إذا كانت قيمة المتغير × تساوى 15 والمتغير ۷ تساوى 350 فإن ناتج التعبير الشرطى 

( 2 . False ga (Y>X ) 

(۷) استخدام عواع اختیاری فى جملة If ... Then ...Else‏ . ) ( 


8771 يستخدم الكود التالى لجساب مساحة دائرة نصف قطرها ر ٠)۴‏ 
أعد كتابة الكود بالعمود الأيمن بحيث يعطى رسالة (غير مسموح) عند إدخال عدد سالب فى مربع 
النص ”171071“ المخصص قيمته للمتغبر ( 8 ).. 


DimR , Area As Single 
Const pi As Single = 22 / 7 
R= Me. TextBox1. Text 
Aréea=2*pi*R^2 
MsgBox ( “area of circle=” & Area ) 


5 حدد ناتج تنفيذ كل من الأكواد الآتية : 


Dim X As Integer = 15 
IF X Mod 3=0 Then 
Label1l. Text = “True” 
Else 
Label]. Text = “False” 
End lf 


١ الفصل الدراسى الثانى‎ 5 a 


الكميهو قو وتكنولوجيا المغلومات والإتصالات 


© أسئلة وردت بامتحانات المحافظفات «<7777275 


اقرا التعليمات الآفينة : [الإسماعيلية] 
* بعد تنفيذ التعليمات المقابلة اختر الإجابة الصحيحة لكلا مما يأتى : 


( Branching التفرع‎ 


X=10 : قيمة المتغير × تساوى‎ )١( 
k= 0 18.[ë] 90 [ب]‎ 10 [1] 


(۲) قيمة المتغير »ا تساوى : If X <20 Then‏ 


X=18 25.5 [e] 100 [ب]‎ 90 [Î] 
Kk = 0 ١ 


: ناتج الشرط 20 > ا تساوی‎ )۳( 
End If 
total = k * 2 False [<] True [+] 0 [i] 
: قيمة المتغير هه تساوى‎ )٤( 
190 [e] 180 [ب]‎ 200] 


أكمل العبارات التالية بما هو مناسب : [ بت سريف] 

)١(‏ عدد اختيارات التفرع الممكنة مع استخدام جملة عواع ...معط1 ...۴| هو 

(۲) فى جملة 6] يتم تنفيذ الأوامر التى تل كلمة اع إذا كان ناتج التعبير الشرطى .... 
ناتج تنفيذ العملية الحسابية 2 * ( 2 + 3 ) - 12 = ا هو .. 7 

٠ تستخدم كلمة قى الإعلان عن الثوابت‎ )٤( 

(5) لفتح نافذة الكود ( /با1000/ا/ا 2006 ) تضغط على مفتاح ا ا 

(1) عند استخدام المعامل ( <> ) فى التعبير الشرطى فإنه يعنى REE‏ 
زاتج تنفيذ العملية الحسابية 2 /[3 * 2“ 8) + 2 اهو ......ل 2.52 .- 0 


فخ 
أب تتبع الأوامر التالية ثم اجب عن السؤال الخاص يها : [ ا«سعندرية) 


If(X>y) Then 
Z=X-Y 
Else . 
2-[ + 15 
End If 


| # إذااكانت 2 , ٤‏ [, ۷ , × متغيرات منطقية صحيحة وكانت قيمها كالأتى : 
KZ 4AE) [2-2350 Y¥=2 )5 X=8 0)‏ 
٭ اكتب القيمة النهائية للمتغير 2 . 


1 الفصل الدراسى الثائى E‏ 


:الكمبجوتر وتكنولوجيا المغلومات والإتضالات 
أكمل الكود المقابل بالكلمات التى بين الأقواس : :شريية] 
MsgBox - End - Age > 16)‏ ( 


IE 


ضع علامة ر“ أمام العيارة الصحيحة وعلامة ر>م أمام العبارة الخطأ : 

( آ... ۴| يتم تنفيذ ما بعد ع5واع فى حالة تحقق الشرط إدمياظ]‎ ٣٥۸ ... فى جملة ع5اع‎ )١( 

(۲) إذا كانت قيمة ( ۸=50) و قيمة ( 8-60) فان ناتج الشرط ( ۸<=8) يكون 29156 ( 

(۳) اذا كانت قيمة المتغير 40 = ۸ , 30 = 8 فإن ناتج الشرط 8-<8 يساوى 52156 ( 

)۸ < 8 ( إذا كانت قيمةاالمتغير يم تساوى 20 وقيمة المتغير 8 تساوى 15 فإن ناتج الشرط‎ )٤( 
( 1] [الإشماغيلية‎ ١ . True هؤ‎ 

( [سميط]‎ . End Else عا تنتهى ب‎ ... The ... Ese جملة الأمر‎ )٥( 

(5) الأمر هواع .... ٣٣٣‏ .... ۴| هو أمر اختيار مزدوج . [كفر القيخ] ( 


(۷) يمكن تخصيض قيم المتغيرات أثناء الإعلان عنها فقط . اليويية ] ر 
(۸) تسمح بيتة التطؤير 108 بوجود أخطاء لغوية فئانافذة الكودا . [ المنوقية] ( 
(4) نوع البيان المستخدم لتخزين البيانات الغددية الغير صحيحة هو اه0661 .2 ( 
)٠١(‏ يمكن تخصيص قيم الثوابت أثناء الإعلان عنها أو فى مرحلة التشغيل : [الغربية]. ( 


ر أكتب الأكواد اللازمة لعمل الآتى : [ دمياط ] 
)١(‏ الإغلان عن الثابت مةد 85 من النوع مه0 وقيمته (20/10/2004) . 
(۲) تخصيص القيمة " فصر فی موندیال ۲۰٠۸‏ " للمتغين( 60016211 ) . 
)١(‏ الإعلان عن المتغير ( ۸) الذى يقبل أعداداً غير صحيحة . 
(4) الإعلان عن الثابت.(.8 ) الذى يقبل أعداداً صحيّحة وقيمته هى 150 . 
(ب) ضع الكتمة الكناسبة مكان النقط :| الغربية] 
( ۴5 - المتغيرات والثوابت - ( Then .. Else‏ .. 16 ) ) 
يراعى عند تسميتها أن:تبدأ بحرف أو الشرطة السفلى . 

)١(‏ جملة التفرع ( ) تسيتخدم عند وجود اختيارين فقط أحدهما فى حالة الصواب 

"عنم1" والآخر فى حالة الخطأ 23156 . 

تستخدم لتشغيل البرنامج من داخل Basic.‏ اVisua‏ . 


3 الفصل الدزاسى الثانى ا | | 


` Branching التفرع‎ 


أجب عن الأسئلة مستعيناً بالكود التالى : 
If X >= 50 Then‏ 
)"liجMsgBox("z‏ 
End If‏ 


.. يتم إظهار صندوق الرسالة وعليه النص "ناجح" عندما‎ )١( 
إذا كانت قيمة 50 = > فإن ناتج تنفيذ الكود هو:‎ )۲( 
إذا كانت قيمة 62 = × فإن ناتج تنفيذ الكود هو:‎ (0 
: أجب عن الأسئلة مستعيتاً بسطر الكود التالى‎ 
If x < 0 Then MsgBox ("العدد موجب")‎ Else MsgBox ("العدد سالب")‎ 
أكتب,التعبير الشرطى فى الجملة السابقة‎ )١( 


Private Sub Buttonl_Click( 
Dim X As Single 
X = Me .Textbox1.Text 
If X >= 50 Then 
MsgBox( (*”ناجح“'‎ 
End If 


(۲) يتم تنفيذ الكواد إذا'وقع الحدث .. 

(۳) نوع المتغير ( × ) فى الكود هو 

(4) "2/16" فى الكود تشيز إلى 

(2) إذا تم إدخال القيمة (50) فى صندوق النص يكون ناتج تنفيذ الكود هو .. 


آ ١‏ | الفصل الدراسئ الثانى 


الكميهوتو وتكنولوجيا المغلومات والإتطالات 
أكمل الجدول التالى بالكود اللازم مستعيناً بالصيغة العامة للجملة الشرطية , 
حا اد لويس .نت ١ط‏ الس ويد 1[ 


If Conditional Expression Then 
Code 


Else 
Code 
End If 


- وذلك لإظهار صندوق رسالة يحمل كلمة "مصر" إذا كانت قيمة المتفير ر٣٤‏ دا٥‏ تساوى "مضر" أو 


يظهر صندوق رسالة يحمل كلمة "٤۷ع"‏ : 
ام | 00 بيان ا اک 


Dim XAs Single 
X=Me. TextBox1. Text 
IF X >5 50 Then 


1/1588 ("ناجح")عاه‎ 
Else 5 

(۳)أعد كتابة الكود الخاص ب ۴] ع1ع810 ليظهر ( "ر اسب" )×80 Msg‏ 
End If‏ 


أجب عن الأسئلة التالية بعد دراسة الكود: 
(١)عدل‏ الكود بحيث يظهر النص "الرقم زوجى" فى 
مربع عنوان 126612 ٠‏ ويظهر. النص "الرقم فردى" 
فى مربع عنوان 1,306612 بدلاً من صندوق رسالة . 


Dim NAs Long 
N =Me. TextBox1. Text 
IF N Mod: 2 =0 Then 
Msع80×)"ىجوز ("الرقم‎ 
Else 
("الرقم فردى")»اهم8ع7/15‎ 
End If 


(۲)استبدل نوع المتغير ( N‏ ) ليصبح erعمtہ1‏ . 


لله الفصل الدراسئ'الثانق 1 


التفرع Branching‏ ( الكمديوتر وتكنولوجيا المغلومات والإتضالات 
الكود التالى يستقبل أى رقم من صندوق نص » ويقوم بتخزينه فى متغير ‏ ثم يختبر قيمتة 
فإذا كان العدد زوجى يظهر مربع زسالة بذلك . وإذا كان عدد فردى يظهر مربع رسالة بذلك : 
- المطلوب: أعد كتابة الكود بعد اكتشاف الأخطاء وتصويبّها ليكون ناتج تتفيذه ضحيحا . 34 


Dim X As Integer 
N= Me. TextBox1.Text 
IF NMod 2=0 
Msچ‎ 80×) ("الرقم زونجى'‎ 
Else 
×Msچ8‎ 0×) ("الرقم فردى"‎ 


: أجب عن الأسئلة التالية بعد دراسة الكود التالى‎ 
Private Sub Button1l _Click( ByValsender As System 0 
Dimdegree As Single 
Try 
degree = Me TextBox1. Text 
Select Case degree 
CaseO0 
Me Label2. Text = "صفر"‎ 
Case Is< 0 
Me Label2. Text = "تحت الصفر"‎ 
Case Is> 0 
Me 126612. Tex = "فوق الصفر"‎ 
End Select 
Catchex, AsException 
Msg 80×) ("أدخل عدد'‎ 
Me TextBox1. Focus( ( 
Me TextBox1. Text =" " 
End'Try a 3 > 
End Sub استخدام 023161) ... ر٣٣ بالكود إثرائى‎ 


... الغرض من الكود هو:‎ )١( 

(۲) إذا علمت أن: 3 - = Degree‏ يظهر ا الرسالة النص : لالد تر + 4 
(۳) يتم تنفيذ الكود عندما يقع الحدث علق أداة التحكم 3 

cD I ا‎ ER E RO OR E نوع المتغير ععتبعء(1 هو:‎ )٤( 


ا 1 الفصل الدراسى الثانى ها 


الكخ هوتو وتكنولوجيا المغلومات والإتضالات 


> أسئلة عامة على الفصل << لزي 
7 أكمل الجمل التالية من بين القوسين : 
True - False — &)‏ - 1 - 1166802 - صفر - خاصية - شرطين - رقم العنصر) 
)١(‏ مصطلح عره1م]1 يشير إلى ............... داخل أداة القائمة :1150860" . 
إفية) ...م يستخدم للفصل بين كل متغير وآخر . 
(۳) تستخدم:جملة ( 0256© ...5616041 ) فى حالة وجود أكثر من ERD‏ 1 
)٤(‏ أداة .............. تتيح لك أن تنشأ وتعرض قائمة من العناصر (الصفوف) يمكن لمستخدم 
البرنامج أن تلختار متها عنصر أو أكثر . 
(5) إذا كانت قيمة المتغير > تساوى 150 والمتغير ۷ تساوى 200 فإن ناتج التعبير الشرطى 
7 کے ک) هو EE‏ 
(5) ترتيب (©120) العناصر 1 الأداة ×0 8ء1 يبدأ من الرقم ا RR‏ 2 
(۷) قيمة المتغير "^" فى الصيغة التالية: ٠×٤‏ آ.0×1 1٥×8‏ = ۸ هى من النوع 
ضع علامة ر” أمام العبارة الصحيحة وعلامة (») أمام العبارة الخطأ : 
)١(‏ الأمر 12134 يستخدم فى كتابة ملاحظات داخل الكود » يمكن الرجوع إليها عند الحاجة » ولا 
يتم ترجمتها . 66 
)١(‏ الخاصية ×ءلم[4عاءهاعS‏ تستخذم لمغزفة رقم العتصر المحدد فى أداة عده115)86 ( ( 
(۳) جملة ط1 ...1۴ البسيطة تستخدم فى حالة وجود اختيار واحد فقط . ) ( 
)٤(‏ يتم تنفيذ مجمو عة الأو امر (الكود) الذى يلى الأمر 1196 إذا كان جواب الشرط فى جملة 
If .. Then .. Else )‏ ( صواب "True"‏ . 0 ( 
(5) تنتهى جملة ( Select...Case‏ ( بالأمر 5206 Stop‏ . 0 ( 
(5) تستخدم معاملات الفقازنة ( مثل > أو < ) فى تكوين التعبيرات الشرطية . 0 ( 
(۷) الحدث الافتراضى للأداة 11568605 هو Selected Ind ex€Chang ed‏ » يعنى عند تحديد 
عنصر آخر بدلاً من الحالى يتغير بالتالى رقم العنصر (:12016) حسب ترتيبه . (SD)‏ 
(MM‏ يفضل استخدام جملة ( 256 561604...0 ) عندما يكون التفرع (اتخاذ القرار) معتمداً على 
قيمة متغير واحد . 0 ( 
(۹) التالى صيغة تعبیر شرطى صواب: 8 + ۸ < 4 ) ( 
2 1 أ ] ما المقصود بالكود القالى EE‏ 
)١(‏ "مصر" = Me. TéxtBox1. Text‏ 
(۲) ( “ أدخل عدد بين الصفر و °° “ ) MsgBox‏ 
Me. TextBox1. Text = » » (F)‏ 


القضل الدراسى الثانى | | 


Branching التفزع‎ 


الكميجوتز وتكنولوجيا المغلومات والإتصالات 
[ب] أكتب الكود اللازم لعمل التالى : 
)١(‏ تخصیص محتوى الأداة ( 1060301 ) وتخزينه فى المتغير (همرع0) . 


250 عرض عبارة ("الاجتهاد طريق.النجاح") فى أداة العنوان 12012 . 


2+ 5^2 دم 
A = TextBox1.Text |‏ 
B=A‏ 


أكمل الكود التالى: 
لإظهازرسالة ( ناجح ).فى أداة العنوان :1206147“ إذا كانت:الدرجة المدخلة فى صندوق 
إلiنصض,"”Textbox1"‏ اک أو تساو ى50 وإظهان رسالة( E‏ إذا كانت الدرجة المدخلة 
أقل من 250 


إعلان عن متغير ‘ 5120916 Dim deg] As‏ 
تخصيص قيمة خاصية صندوق النص للمتغير 1و6 ' deg1 = Me .Têxtbox1.1ext ٠٠‏ 


حدد ناتج الكود التالى: 
Dim StrNamse As String = “@gmail.com”‏ 
StrNamse‏ عق 4“ = StrNamse‏ 


StrNamse = “Al Faez4books ”* عة‎ StrNamse 
Labell. Text = StrNamse 


الفصل الدراسق الثانى 


الكميجوتر وتكنولوجيا المغلومات والاتصالات 


اختر الإجابة الصحيحة لكل مما يأتى 
)١(‏ قيمة المتغير (۸) بعد تنفيذ الصيغة التالية: 2 * 8 - 10 = A۸‏ [ البحيرة ] 
16[Î]‏ [ب] 8 [ج]4 [د ]6 
(۲) جملة الأمر Select ... Case‏ تنتهى ب : 
]ب[ Finish‏ 2 ]د [ End Else‏ 


+[ دمياط ] 
]د End[‏ 


] تنتھى ب : [ سوماج‎ ) 1£ .. Then om 

False [ ]د‎ End Else le] a ul If Else 1 7 
] وقيمة المتغير 20 - 1/1 » فإن: إالغربية‎ N = 15 إذا كانت قيمة المتغير‎ )©( 

M <=N[e]  N>MIv] M<NI[!]‏ 7 نين سساسرق 


د ضع علامة ر” أمام العبارة الصحيحة وعلامة رم أمام العبارة الخطاً : 
) يمكن تخزين القيم الحرفية فى متغيرات حرفية باستعمال أمر التخصيص إالمنوفية] ( 
)١(‏ إذا كانت قيمة المتغير (30= وقيمة المتغير (25=) فإن قيمة التعبير ا (-مهم0 
تساوی e E . True‏ ( 
(7).لا يمكن إهمال القيمة الابتدائية للمتغير من النوع #دهوط0) عند الإعلان - عت یط ( سس[ 
(4) تستخدم الدالة ( 100 ) للحصول على تاج القسمة .<< _ر ا ١‏ 
مان لحتو ا [قنا] ) 
اقرا التعليمات التالية ثم اختر الإجابة الصضحيحة لكل مما يلى : [ الإساعيلية ] 
Dim Age As Decimal‏ 
If Age >= 16Then‏ 
MsgBox("you can get an ID card")‏ 
Else‏ 
MsgBox ("you can't get an ID card")‏ 


: كانت قيمة المتغیر ٥ع ۸ تساوئ 15 يظهر مربع رسالةيحتوى على‎ اذإ)١(‎ 
yo on 1D card youcan get an ID eafd[ İ] 

(۲) إذا كانت قيمة المتكهرروع ۸ تساوى 17 يظهر مزبع رسافة يحتوى على : 
8 ]ب[ you can't get an ID card‏ - 


الفصل الدراسى الثانى 


اللتشرع Branching‏ الكمجيو تقو وتكنولوجيا المغلومات والإتصالات 


هه جه ا 


ب اقرا التعليمات الآتية ثم أجب عن الأسئلة الثالية : [ الدقيلية] 


DiraFirst as integer= 20 , Second as integer= 0 
Dim'Third as integer= First + Second 2 ىى‎ 0 < 
DimTotal as integer 
If Third <= 50 Then 
Total= First + Second + Third 
Else 
First = 30 
Second = 5O 
Total = First + Second + Third 
End If 
.... = 11156 قيمه المتغير‎ )١( 
قيمه المتغير 720مع56‎ )۲( 
= 701421 قيمه المتغير‎ )۳( 
سر وك 0 م‎ 
”] ختر اعود ر | ) م يناسبه من العمود ري) : [ أسوان‎ 013 


r EE 
العلامة ( =< ) تعنى [ أ ] | تستخدم عندما يوجد أكثر من شرطين‎ 
. س تساوى‎ Const 
. اا ی للإعلان عن ثابت‎ Select . س‎ 


2 [د] | لاتساوی . 


ا 


العلامة ( < > ) تعنى 


(1) Din X As Single 
(2) Const B_D As 4 
حدد ناتح العمليات الحسابية الآ‎ 
20-)5+3(*2 )١( 
9-5+3*2 )" 
5 5 ¢) 


القصل الدراسى الثاتى 


سملو اختر الإجابة الصحيحة مما يأتى : 
)0( تبذأ كتابة التعليقات فى نافذة الكود :777120039 ع000" ب : 


[]الأمر REM‏ [ت] تسم [ج] الأمر Const‏ [د ]كل من أء ب 
(۲) القيمة المراد تَخَرْتَنها أقئ آالمتغير على يسارد الغلامة "< يمكن أن تكون . 
[ أ ] قيمة مجردة. [ب] قيمة متغير [ج] عملية حسابية. [د ]كل ما سبق . 
(۳) المعامل TR‏ يستخدم للفصل بين كل متغير وآخر . 
Me [4] ONÎ‏ ]ج[ & ]د ]85 
)٤(‏ فى جملة ( 8156 ... ط٦‏ ...1۴ ) إذا کان ناتج التعبير الشرطى"12156" يتم تنفيذ الكود 
الذى يلى . : 25 
Elsê[ î]‏ [ب] End If‏ خأ Then‏ إد [ Const‏ 
(5) العامل المؤثر الحسابى للقسمة قى لغة V8.٤ ٣‏ هو: 
#111 آب]/ 006 [د ]ع 
٠.......:.- )5(‏ تعبر عن نافذة النمودج "مزه" الحالية ٠ ٠‏ 
21 [ب] ERN Me‏ إد ]5 
().الأمر "3" & "ع" &."3" <1880 يعرض صندوق رسالة به E‏ 
311 : إت] 3×3 [ج91 | E A‏ 


ضع علامة ركم أمام العبارة الصحيحة وعلامة وى أمام العبارة الخطأ: 
)١(‏ يتحدد ناتج التعبير الشَرظى بناء“على قيمة خاصية أو قيمة متغير فى البرنامج ٠.‏ ( ( 
(؟) المتغير Byte‏ يحتاج لذاكرة أقل وأسرع من المتغير Integer‏ فى العمليات الحسابية (3 ( 
(ع) فى جملة (م11*:.16) إذا كان ناتج التعبير الشروليخ صواب a True”‏ تنفيذ ين الأوام 
التئ تلى كلمة 14 EA‏ : ) ( 
9 حدود (مدى)[القيم المخزنة فی ا مر النوع من صفر حتى 255 ( ( 
( 
( 


) . Mod هى‎ VB. EE الدالة المستخدمة لإيجاد باقئ اله في لغة ال‎ (a) 
( اسم ال أو ا ن في الطرف ا من ا "2" فى جمك التخضيص:‎ )5 


2 الفصل الدراسئ الثانى 1 1 


5-7 وتكنولةجيا المقلومات والاتطالات + 118 


أكتب كود البرمجة فى الناحية اليسار من الجدول اعتمادا على خطوات الخل التالية: 
)١(‏ البداية 

(۲) إدخال الدرجة × 

(۳) إذا كان 50 =< × إذن: 
)٤(‏ طباعة ناجح 

(2) النهاية 

اقرا التعليمات الاتية ثم اختر الاجابة الصحيحة : 


Dim 11تنا5 , 1/1 , لظ‎ 5 Single 
A=25 
M = 90 

HA.< 26 Then 


A=16 

M = 0 
End If 

Sum = M*2 


>* اختر الاجاة الصحيحة لكل مما يلى من بين الأقواس : 

2255-16-90 ل جا ا‎ Ree قيمة المتغير ۸ تساوى‎ )١( 
E OD UO ا را سو‎ TA قيمة المتغير 14 تساوئ‎ )١( 
(Trüe False 26) gehen ناتج الشرط 26 > ۸ يكون‎ )۳( 
)180-200-100( ..٠... 51027 قيمة المتغير‎ )٤( 


ضع علامة > أمام العبارة الضحيحة وعلامة ون أمام العبارة الخطأ: 


( ) Const N_Of_Units As Single = 57.251 التالى أمر إعلان متغير:‎ )١( 
يلى السطر الذى يحتوى على (711365 ...1۴) الكود المطلوب تنفيذه إذا كان ناتج الشرط أو‎ )۲( 

التعبير الشرطئ خطأ ”52156“ . ) ( 

. () تستخدم 10153 لاكتشاف أخطاء البرنامج أثناء التشغيل . ) ( 

/ ) . الشرظية‎ 1۴ ٠ جملة 14 814 تخبر يانتهاء جملة‎ )٤( 

(2) الضيغة التالية صحيحة للإعلان عن ثابت:  Const Nanîe As String‏ ) ( 


١ [‏ القصل الدراسى الثانى 8 


الكمجهو تو وتكنولوجيا المغلومات والاتطالاد 


باستخدام جملة الشرط ر :..E]se‏ داء ط1.... (JÊ‏ : 
أكتب الكود اللازم لإظهار رسالة (الرقم زوجى) إذا كانت الدرجة 
المدخلة تقيل القسمة على (2) بدون باقى ورسالة (الرقم فردى) 
إذا كانت الدرجة المدخلة لا تقبل القسمة على (2) بدون باقى ٠‏ 

أذكر المصطلح العلمى : 

. أحد أنواع البيانات يسمح بتخزين البيانات من التوع الحرفى‎ )١( 

٠ أمر يستخدم فى الإعلان عن الثوابت فى لغة الفيجوال بيزيك دوت نت‎ )١( 

(") الأمر المستخدم فى تخزين القيمة الموجودة على يمين علامة (=) فى متغير على يسارها ٠‏ 

(<) أمر يكتب فى أول السطر فى الكود عند كتابة الملاحظات . 

(2) الأخطاء التى تحدث أثناء الكتابة فى نافذة الكود . 


حدد ناتح تنفيذ العمليات الحسابية التالية : 


(0 3+342(*2) 7 2 © 7342-2 2 
(0) 10+3*5 2725 () (10+م*3 35 
075 را اختر الإجابة الصحيحة من بين القوسين : 
)١(‏ ناتج تنفيذ الصيغة الحسابية 3^2 + 1 هو GOZE I CE E‏ 
)١(‏ المتغير من توع ... يخزن القيمة True‏ أو isin} (Short - Byte — Boolean) False‏ 
(') الأخطاء التى لا يتم أكتشافها إلا أثناء تشغيل البرتامج تسمى 1 BA‏ 
Run times — Logic error — Syntax Error )‏ ( 
5( ...... كلمة محجوزة تستخدم فى إنشاء سطر جديد . [ الشركة ] 
(+ > لان 0# رن 
(5) تستخدم المتغيرات من النوع ............ لتخزين قيم عددية صحيحة ٠‏ 
Single - Double - Integer )‏ ( 
(5) لتخزين الأعداد التى تحتوى على كسور عشرية تستخدم المتغير من النوع .2 [الشرقية ] 


Short - Long — Double )‏ ( 
[ب] بافتراض القيم للمتغيرات التالية. : 
zInteger = 4 (‏ , 3 =ntegerآy‏ , 2 = موه 1م1» ) فإن نتيجة تنفيذ العملية: 
xInteger + Integer * 3 ]‏ ^ جوع 1م71 ] يساوى (AO BREST E SS‏ 


القصل الدراسى الثاتى | | 


الفصل الثالث 


Looping & Procedures 
١ 


يتعرف / يوضح مفهوم الحلقات التكرارية . 

تستخدم جملة “ “ لتنفيذ كود 7 “ لعدد محدد من المرات . 
يستخدم الجملة “ “ لقكرار كود ” “ لعدد غير محدد من المرات . 
يستخدم جملة ” 0 

يعلن عن الإجراء “ 

يستدعى الإجراء “81010” 

ډستخدم “ “ أثناء الإعلان عن الإجراء ” 

يعلن عن الدالة “ ا 

يستدعى الدالة “ ت 

إيضرق بين الإجراء 00ا5“ والدالة “ 


| ا الفصل الدراسى الثانى 


لحلقات التكرارية والإجرادات 


Looping & Procedures 


٭ تمهيد: تعلمنا فى الفصل السابق بالتفرع وتنفیذ كود معين بناءً على ناتج تعبير شرطئ 
3ه الفصيل تكلم تكر انا كود محده عدة مراك را رمن الكلفة را و 
باستخدام جملة التكران ( ×8 .:. ۴6۴ ) أو جملة (Do While ... lop)‏ . 


٭ جملة )×م.N‏ ... :10 هى أحد جمل التكزار المحدود . 
“د تستخدم لتكرزار كود معين عدد مجدد من المرات ( عدد مرات تكرا وف مسبقاً ). 
3 من تمو ( 


الصيغة العامة لجملة التكرار FOr ... Next‏ 3 


For Variable, = Start value To End value [Step]. Add value 


الأوامر المظلوب تكرار تنفيذها ... ©600© 
نهاية التكرار ٠‏ [اختيارى Next [Variable‏ 


* ووس : الأمر الذى يحدد بداية,التكرار . 
> ع اظح دل : اسم المتغير الذى يلى الأمر #ن] » ويجب أن يكون نوعه:رقمى (صحيح 
أو عشرى) ويعمل كعداد Cuter”‏ . 
* 11د 56356 : قيمة المتغير العداد أو بداية التكرار وهى قيمة رقمية . 
* 11د 0ع : قيمة نهاية المتغير: العداد:أى نهاية التكرار وهى قيمة رقمية . 
Ad value >‏ : قيمة زيادة العداد ( القيمة التى يزيد بها العداد كل من مرات التكرار 
حتى يصل إلى قيمة النهاية ).. 
* 616ت© : هى الأمر.أو الأوامز التى.يتم تكراره ويكون بين بداية.الحلقة التكرارية. ه۴ 
ونهايتها Next‏ . 
Next >‏ : هى نهاية التكرار . 


الفصل الدراسى الثانى 


الكمييوتو وتكنولوجيا المغلومات والإتصالات 


# استخدام الأمر مع54 فى جملة التكرار 8/64 ... ۴۵۴ اختيارىئ . 
وكذلك كتابة اسم المتغير العذاد بجوار الأمر ٠×٤‏ اختيارئ . 
## فى جملة التكرار 81664 .. ۴۲ فى حالة عدم استخدام م516 فإن القيمة الافتراضية 
لزيادة المتغير العداد موجب 1 . 
# إذا كانت قيمة الزيادة موجب 1 « فإنه يمكن الاستغناء عن كتابة Step Add Value‏ 
# كلمة Sp‏ الاختيارية (تستخدم للتحكم فى مقدار زيادة المتغير العداد) فى كل مرة من 
مرات التكرار 
# بعد م5 يكتب مقدار الزيادة ( عدد صحيح ك2 عدد عشرى / عدد سالب أو عدد 
موجب / متغير عددى صحيح أو متغير عددی عشرى) . 
# يمكن: جعل قيمة البداية أكبر: من قيمة النهاية وتكون قيمة زيادة:متغير العداد بالسالب 
* يمكن جعل قيمة البداية أو قيمة النهاية أرقاماً صحيحة أو عشرية أو متغيرات . 


© عند E‏ قيم رقمية عشرية يجب إعلان متغيرات من النوع العشرى (مثل ©515791) 
قيمة gr‏ قيمة بداية للعداد المتغبر العداد 
For i =‏ 


+ لاحظ: کی تایا دید کی ی Step‏ . 
8 مال (؟) توضيحى. : 


فاته ا 0 مصعم For Variable‏ 


+ لأحظ , قيمة الزيادة المحددة (المعينة) فى جملة التكرار هی (5) باستخدام Sp‏ . 


1 الفصل الدراسى الثانى 


اقاتر الكميهوفر وتكنولوجيا المغلومات والإتطالات 
* يقوم الحاسب بمعالجة الأمر ۴٥۲ ... ×٤‏ كالتالى : 
®@ يتم تخزين القيمة الزقمية 542:4 فى متغير العداد Cou nie‏ . 
ال وتتم مقارنة القيمة المخزنة فى المتغير العداد بالقيمة الرقمية 250] حيث : 
٭ إذا كانت قيمة متغير العداد تساوى أو أقل من قيمة .ع يتم تنفيذ الأوامر التى بين 
( 501...8464 ) المطلوب تكرارها من أعلى إلى أسفل حتى يصل إلى Nex»‏ . 
# عندما يصل البرنامج إلى »ل يتم زيادة القيمة المخزنة فى المتغير العداد بمقدار 1 
» وفى حالة استعمال م566 فإن قيمة المتغير العداد "/7]6]نا6©" تزداد بمقدار 
الزيادة فى م506 . 
# ثم يعود البرنامج إلى بداية التكرار ه۴ ويقارن قيمة المتغير العداد بقيمة النهاية 
(50) ۰ فإذا أصبحت قيمة متغير العداد أكبر من قيمة (15:001) ينتهى التكرار » 
وينتقل البرنامج لتنفيذ أول أمر بعد ×م . 


( تدريب )يي )١(‏ صمم نافذة النموذج التالية 


# المطلوب : عند نقر الزر (عرض الأعداد من ١‏ إلى ؟) يظهر صندوق رسالة *©ادهم3 و 1/15“ 
بيعرض بداخله الأعداد من ( ١‏ إلى ۳) . 
(۳) نكتب الكود فی إجراء حدث 1101© للزر 1 المكتوب عليه ر عرض الأعداد من ١‏ إلى ۲ ). 


Private Sub Buttonl_Click(By 


Dim M As Integer 
For M =1 To 3 


MsgBox ) 1 
Nex نهاية جملة التكرار’‎ 
End Sub 


3 الفصل الدراسى الثانى | آ 


التكرار والأجرادات 


الكمهومو وتكنولوجيا المغلومات والإتضالات 


+ الجدول التالى يوضح تتبع سير الكود للمثال السابق : 


قيمة متغير العداد ۷1! 


Dim M As Integer 


الإعلان عن متغبر العداد 7/1 . نوعه رقمى صحيح 
وقيمته الابتدائية صفر . 


For M - 1 16 3 
فى‎ )1١( نتخزين القيمة‎ , 8 : 


بداية العداد من ر١‏ 
متغير العداد ( 1/1 ) . 


MsgBox( M ( "جملة التكرار"‎ 

طباعة قيمة المتغير 1/1 وهى را) . 
Next‏ 

نهاية الحلقة التكرارية . حيث يعود البرنامج إلى 
جملة ۴۲ ويختبر هل تخطى متغير العداد لقيمة 
نهاية الحلقة التكرارية , فإذا كانت قيمة العداد أقل 
من أو تساوى قيمة النهاية يزيد العداد بقيمة الزيادة 
وينفذ خطوات التكرار . 


"جملة التكرار" ( MsgBox( M‏ 
طباعة القيمة الجديدة للعداد بعد الزيادة وهى ر٠)‏ 
Next‏ 
نهاية الحلقة التكرارية . حيث يعود البرنامج إلى 
جملة ۴۲ ويختبر هل تخطى متغبر العداد لقيمة 
نهاية الحلقة التكرارية » فإذا كانت قيمة العداد أقل 
من أو تساوى قيمة النهاية يزيد العداد بقيمة الزيادة 
وينفذ خطوات التكرار . 
"جملة التكرار" ( MsgBox( M‏ 
طباعة القيمة الجديدة للعداد بعد الزيادة وهى )"١‏ 
Next‏ 
نهاية الحلقة التكرارية , حيث يعود البرنامج إلى 
جملة 101 ويختبر هل تخطى متغير العداد لقيمة 
نهاية الحلقة التكرارية ‏ فإذا كانت قيمة العداد أكبر 
من قيمة النهاية يخرج من الحلقة التكرارية . 


العداد أقل من أو يساوى قيمة النهاية يزيد العداد 
بقيمة الزيادة وينفذ خطوات التكرار . 9 ! 


قيمة البداية (1) 
1 1 


کڪ 
( زيادة قيمة المتغير 1 بواحد) 


5 M=1+1 
هل قيمة 74 أكبر من قيمة النهاية‎ 
) 7218 الناتج‎ ( 
غاا‎ 
2 2 
) زيادة قيمة المتغير 14 بواحد‎ ( 
M=2+1 
هل قيمة 74 أكبر من قيمة النهاية‎ 
) الناتج ع7215‎ ( 


( زيادة قيمة المتغير 1,1 بواحد ) 
1+ 14-3 
هل قيمة 7/4 أكبر من قيمة النهاية 
( الناتج True‏ ( 1 
الخروج من حلقة التكرار وتنفيذ 
الأوامر التالية ل ٥×٤‏ إن وجدت . 


1 | الفصل الدراسى الثانى E‏ 


“قاقر | الك وتو وتكنولوجا المغلومات والإتصالات 
(۳) اضغط على مفتاح (۴5) لتشغيل البرنامج » ثم انقر زر (عرض الأعداد من١‏ إلى؟) 
يظهر صَندوقَ رسالة ×0 8غ5“ يعرض الزقم :561 »و عند النقر على زر 0172 
يظهر صندوق آخر رسالة 0×7 8عء ۷“ آخر يعرض الرقم ”2“ » وعند النقر على زر 
016 يظهر صندوق آخر رسالة “ام8ع1/5”“ آخر يعرض الرقم :3“ كالتالى : 


Forinumber. ES ممم‎ ES هحسم‎ ESS 


١ ۲ ۳ 


عند معرفة عدد مرات التكرار مسبقاً لكود "©0006" معين فإن أفضل 'جملة تكزار هئ 


THF THER EBE)‏ )ب( If ... Then‏ )ج( For ... Next‏ [القاهرة] 


)١(‏ عدل الكود بالتدريب السابق بإضافة صندوق نص ”0×1 “۲٠×۲8‏ لعرض الأعداد من ١(‏ إلى ؟) 
بداخله بدلا من عرضها فى صندوق رسالة ”01/151307“ عند نقر الزر رعرض الأعداد من ١‏ إلى ). 


TextBox1 : 


أ عرض الأعداد من ١‏ إلى 


(۲) التالى الكود بعد التعديل لعرض الأعداد فى صندوق النص ”0×1 “۲٠×18‏ . 


Private Sub Buttonl_Click(ByVal sender As System . 
Dim M:As, Integer 
For M31 To 3 


Me. TextBox1l.Text = Me.TextBox1.Text © M 


Next M 
End Sub 


ا الفصل الدراسنى الثانى آ 


التكرار والاجزاءات ) 


ا ا 
j Me. TextBox1.Text; =|‏ 
ا + 1 
+ لاحظ : 
# تح استخدام معامل الربط 8&9 ) لربط قيمة المتغيز (18/1) بمحتوى ضندوق النص ( وضل 
(۳) اضغط على مفتاح ( ۴5,) لتشغيل البرتامج.. 
3# عند النقر على الزر (عرض الأعداد من ١‏ إلى ؟) . 

تظهر الأعداد من ١(‏ : ”) بجوار بعضها فى مربع النص . 


عرض الأعداد من ١‏ إلى 7 


+ لاحظ : 
- فى حالة كتابة سطر الكود بالشكل التالى :- 0ن کاک ری دی ١‏ إلى + 97)) 
Me.TextBox1.Text = M‏ : 


فلن نلاحظ تغيير قيمة المتغير 1 أثناء التنفيذ 


وإنما سيظهر آخر قيمة فقط وهی (۳) لأن عرض | عرض الأعداد من 5 إلى ١‏ 
عرض الناتج سيتم في نفس المكان فيظهر آخر LAN LTE‏ 


اقيمنة فقط كما هى هبر بالتفكل المقابل:: 


: كك 2 
+ لاحظ : ا ا ی 


إذا تم النقر على زر (عرض الأعداد من ١‏ إلى ؟) مرة ) 123123 
ثانية » يتم تكرار طباعة الأعداد من ١(‏ إلى ۳) بجوار 
بعضها فى مربع النص كما هو مبين بالشكل المقابل . 


تحسين شكل:المخرجات ١‏ )ن 
* لتجنب تكرار عرض الأعداد من :١(‏ ۳) بجوار بعضها فى صندوق النص "011 7615© 1" أفقياً: 
- يتم إضافة الكود التالى قبل بداية الحلقة التكرارية لمسح محتويات صندوق النص قبل البدء 
فى تنفيذ ,الحلقة التكرارية : " "= Me.TextBox1.Text‏ 


ا ]| القصل الدرائنى الثاتى 3 


| عرض الأعداد من .إلى |٣‏ 


اتر الكمجوتر ونكنولوجيا المعلومات اناا ا 
# عرض الأعداد من (1: ”) دخل صندوق النص " 1 ٥×18‏ 1” بحييك يكون كل رقم فى سطر جديد 
-ضبط قيمة خاصية تعدد الأسطر ) MultiLine‏ ) الخاصة ب True Jl}Text8ox1‏ 
للتعامل مع سطور متعددة فى صندوق التص . 
- عدل الكود داخل الحلقة التكرارية بإضافة رمز مفتاح الإدخال ” ۴إ ط۷ “كما يلى: 
(Private Sub Buttonl_ClickByVal senderAs System.‏ 
Dim MAs Integer‏ 
لمسح محتويات صندوق النص › 4*؛ “ = Me . TextBox] . Tex‏ 
For M=} To 3‏ 
Me. TextBoxl Text = Me. TextBox1.Text & M & | vbCrLf‏ 


Next M 
\ هدك‎ sub 


>* الكلمة المحجوزة ۷50۲1-۴ تستخدم لإضافة رمز مفتاح الإدخال وسطر جديد . 


> انقر ( ۴5 )لتشغيل البرنامج . 
انقر على زر (عرض الأعداد من ١‏ إلى ؟) . 
- تظهر الأرقام كل رقم فى سطر كما هو 
مبين بالشكل المقابل . 
#* بالنقر على الزر ( عرض الأعداد من ١‏ إلى © 
أكثر من مرة يتم مسح محتوى صندوق 
النص وإعادة كتابة الأرقام من جديد . 
ر تدريب_)- 
- عدل المثال السابق لطباعة جدول ضرب العدد ( ٣‏ ) يصندوق النص "061 18ت 1" 
وذلك عند نقر الزر المكتوب عليه ( جدول الضرب ”) . 
>*# الثالى كود فى حدث ر 011) ) لزر الأمر ر 81110721 ) . 


(1) Dim M , Product AS Integer 


الإعلان عن متغير حرقى * Dim StrAs String‏ )2( 
مسح محتوى مريع النص * “ “ = Me. TextBoxl. Text‏ 

For M= 1 To 2 
(3) Str =3 & “x” &M & “=” “ شكل جملة حاصل الضرب‎ 


(4) Product =3 * M 
Me. TextBoxl.Text =Me. TextBox1. Text & Str & Product & vbCrLf 


Next M 
| 


الفصل الدراسى الثاتى 


AEE‏ الكميهوتر وتكنولوجيا المغلومات والإتطالات 

> سطر رقم )١(‏ : تم تعريف متغير رقمى صحيح باسم Prodi ut‏ . 

٭ سطر رقم )٤(‏ : لتخزين حاصل الضرب ( 3 × ) فى المتغير ct‏ عوجوم وذلك مع 
كل کغییر فى كيمة المتغير الا . 

٭ سطر رقم (5) : کم تعريف حرفى باسم ای . 

* سطر رقم (") : كخزين #كل جملة حاصل الضرب في المتغير ٤ء‏ كسلسلة نصية مع 
كل كثيير في قيمة 1/1[ . مثال: ( = 1 × 3 ) أو (= 2< 3 ) وهكذا .. 

٭ السطر الأخير: تم عرض قيمة المتغير ,1ه ثم معامل الربط چ ثم قيمة المتغير 57004 
في صندوق النص عرو طعرء]” .حيار وی النص TEXT bok‏ 

لاحظ : تم استخدام معامل الربط# لربط محتوى صندوق النص » وشكل جملة حاصل 
الضرب ء وحاصل الضرب ء ثم إنشاء سطر جديد . 

* يمكن كتابة الكود بدون الإعلان عن أسماء متغيرات كالتالى : 


DimM AsInteger 
Me. TextBoxl. Text = “ “ 
For M = 1 To 2 


| Me.TextBox1.Text= Me TextBox1l.Text & 3 & “x” & M & “=” & 3 * M &| 


(vbCrLf | 
Next M 

* توضيج القيمة وله ) فى جملة التخميص : ف هله" الط میں 

E IT لوي‎ 

1 ' !الضرب ا | 

3KM على‎ ““ e ¦ & vbCrLf! 

سطرجديد ¦ |المتفير |0 , المتغير 

str ¦ product 

SESE RES عا عد ويه محف‎ E SE 


ا اضغط مفتاح 155١‏ ) لتشغيل اليرنامج. 
انق على زر ( عرض جدول ضرب ۴ ) . 
Kk‏ د دهز جدول الضرب بصندوق النص . 
+ لاحظ ؛ لجعل جدول الضرب يظهر بأرقام من اليمين 
إلى اليسار » اضبط خاصية Right 7o Lift‏ 
لصندوق النص تساوى 5ه۷ . 


ا | الفصل الدراسى الثاتى 


الكمديو تو ونكنولوجيا المعلومات والإتصالات 


و غدل التدريب السابق لعرض:جدولل lo RET‏ 
النص "162013021" . 

“د قم بإضافة صندوق نص باسم ”0×2 ع هرح“ الي إدخال رقم الجدول الجديدبية.. 

#د قم بتعریف متغير رقمى باسح ں ل ليخزن بدارقم م الجدول الجدي (محتوئ (Textbox2‏ 


= 


# التالى الكود بعد التعديل في حدت "0111" لزرالأمر E‏ ا جدول الضرب) . 


Dim M , Product, Nüum As Integer EEE GE SDS RAN 
Dim str As Stang, , i he ١ 
Num = Me. TextBox2 . Text |  ريغتملا تخزين محتوى مربع النص(رقم الجدول) قى‎ 
Me. TextBoxl. Text = 2 ° حذف محتوى صندوق النص‎ 


For M = 12 

شكل جملة خاصل الضرب > اكد حي E‏ 

Product = [٤ Num * MW | 1 *M| “ Num بالمتغير‎ ٣ تخزين ناتج الضر ب بعد استبذال القيمة‎ 
Me. TextBoxl. Text = Me. TextBoxl. Text عق‎ str & Product & VDCrLf 
Next M 


2 د مرف عب سرن ی‎ 1 1 Ezz . مفتاح'( 5ع ) لتشغيل البرنامج‎ E 
TE + "Tex Bğ x2 النضن‎ 5 
eg IEE : SFedBox! ج رقم فی مدع النضب‎ 
XK ٠) انقر على زر ( عرض جدول الضرب‎ - 
TextBox2 يتم عرض جدول الضرب تبعاً للقيمة‎ - 


التى تم إدخالها فى 0×2 ۲e×†8‏ . | 
٭ أدخل قيمة أخرى فى 0×2 ۲٥×18‏ » ا 
ثم أنقر زر (عرض جدول الضرب) . | 


5 58 4 1 ب ببالمحرارية E E ab‏ 
®@ فى التدريبات السابقة كانت قيمة البداية فى الحلقة انكر از ية أضتغر من قيطة النئاية 
سسا 
لذلك كان معدل زيادة قيمة متغير العداد قيمة موجبة ( مقدارزيادة قيمة متغير العداد 
الاقتراضية (0(. 
® يمكن التحكم فى مقدار زيادة متغير العداد بتحديد قيمة بعد (م8]6) إما قيمة رقمية 
صحيحة أو عشرية موجبة أو سالبة كالتالى: 


الفصل الدراسى الثانى | 


التكرار والاجراءات” :الكملايوتو وتكنولوجنا المقلومات والاتطالات 
* أمثلة على : جملة التكرار For ... Next‏ : 


مثال ]١[‏ عرض الأعداد الفردية من ( 1 إلى 10 ) : 

Dim i As Integer 

For i = 1To 10 Step 2 
Me.TextBox1 Text = Me.TextBox1.Text & i & vbCrLf 

Next 
: ) 10 مشال [۲] عرض الأعداد الزوجية من ( 2 إلى‎ 
Dim i As Integer 9 

For’ I = 2 TOS 10 2 
Me.TextBoxl. Text = Me.TextBox1.Text & i عق‎ vbCrLf 

Next 


: ) 20 أمثان [] عرض الأعداد التى تقبل القسمة على 3 من ( 3 إلى‎ 
Dim i As Integer 
For i = 3 To 20 Step 3 
Me.TextBox1 Text = Me.TextBox1.Text & i & vbCrLf 
Next 
:) 1 مشال [5] عرض الأعداد الزوجية مرتية تنازلياً من ( 10 إلى‎ 
Dim i As Integer 
For I = 10To 1 Step-2 
Me.TextBox1.Text = Me.TextBox1.Text & i & vbCrLf 
Next 
: عرض الأعداد من ( 1,5 إلى 0,5 ) بتناقص مقداره 0,05 كل مرة‎ ]١[ مشال‎ 
Dim i As single ‘ إعلان متغير رقمى عشرى‎ 
For i = 1,570 0,5 Step -0,05 › قيمة البداية والنهاية ومعدل الزيادة أرقام عشرية‎ 
Me.TextBox1.Text = Me.TextBox1.Text & i & vbCrLf 
Next 


مال ]١[‏ عرض الأعداد من ( 1 إلى قيمة 8 ) بزيادة قيمة © : 
Dimi, B , 0 As Integer‏ 


B=10 
C=2 
For I = 1110 8 Step 0 قيمة النهاية وقيمة الزيادة متغيرات‎ 
Me.TextBox1.Text = Me.TextBox1.Text & i & vbCrLf 
Next 


ا | ا الفصل الدراسى الثانى 


ES‏ الكمييوتو وتكنولوجيا المعلومات والإتضالات 
+ نستناتج من الأمثلة بالجدول السابق : 
)١(‏ يمكن تحديد معدل زيادة متغير العداد بكلمة م ثم كتابة قيمة رقمية أو متغير رقمى . 
(؟) إذا كانت قيمة بداية متغير العداد أكبر من قيمة النهاية » إذاً معدل الزيادة يجب أن يكون 
بالسالب . مثال ( 2- ForN 10 To 1 Step‏ (. 
(5) إذا كانت قيمة بداية أو نهاية متغير العداد أو معدل الزيادة عدد عشرى لذلك يجب أن 
يكون متغير العداد من النوع العشرى . مثل ) Single - Double - Decimal‏ ) . 
)٤(‏ يمكن لأى من قيمة البداية أو النهاية أو معدل الزيادة أن يكون متغير "172516" . 
المتغير العداد أو معدل الزيادة . متال © (For 1 = 1 ToB Step‏ 


أسئلة الدرس 


أب كون الحلقات التكرارية التالية باستعمال جملة الأمر 21 ...0۲ : 
)١(‏ قم بضبط قيم المتغير العداد ":ع] بده" من 5 إلى 50 مقدار الزيادة 2 فى كل مرة . 
(۲) غير قيم العداد ( 1 ) من 1 إلى 10 يزيادة 1 فى كل مرة تكرار . 
(۳) غير قيم العداد ( × ) من 10 إلى 2 على أن ينقص العداد ( 2- ) فى كل مرة . 
(5) غير قيم المتغير العداد ( 7 ) بالترتيب التالى تنازلياً: (19 , 17 , 15 , 13 ,11) 
(5) غير قيم العداد  (‏ ) بالترتيب الآتى تضاعدياً : ( 21 , 28 , 35 , 42 , 49) 
215 تنبع الأوامر الآتية موضحا قيمة كل متغير فى كل مرة يتغير فيها : 
Dim X As Single = 4.5‏ 
For 1 = 0 To 7 Step 3‏ 
K=X*2‏ 
Next‏ 


17 ] أكمل ما يأتى بكلمات مناسبة : 
)١(‏ جملة التكرار تستخدم فى حالة معرفة عدد مرات التكرار مسبقاً . 
(۲) عدم استخدام كلمة مع98 يؤدى إلى زيادة العداد بمقدان .. 
3غ انكلفة ALE‏ لفق Next yal‏ ...تووم 


اختيارية . 
3 الفصل الدراسى الثانى ا 1 


التكرار والإجرادات الكميجوقر وتكنولوجيا المغلومات والإتضالات 

[ب] أكمل ما يأتى : For Counter = 2 To 40 Step 4 Next‏ 
(١)المتغير‏ العداد هو 

"١‏ )القيمة الابتداتية للعداد هى 
(۳) القيمة النهائية للعداد هى 
٤(‏ )قيمة خطوة تزايد العداد هى . 
()تشير إلى نهاية جملة التكرار 
ضع علامة 7 أمام العبارة الصحيحة وعلامة رم أمام العبارة الخطأ: 
(١)الأمر‏ ( ۴٥۲۰... 6×٤‏ ) يستخدم فى حالة عدم معرفة عدد مرات التكرار مسبقاً . ( 
(۲ )فی جملة (  .. Next‏ 105 ) لا يتم التكرار إذا كانت مع تساوئ صقر. 2 
(1) عدم استعمال ( «ز5 ) يؤدى إلى عدم زيادة قيمة متغير العداد نهائياً. ) 
(5 )يمكن تسمية المتغير العداد باسم ( عاو مده ) . 0 
(3)كلمة ( 202 ) تمثل بداية التكرار بينما ( ٥×٤‏ ) تمثل نهاية التكرار . 0 
(1) نستخدم الوسيلة ( )115ه70 الخاصة بصندوق النص لنقل التركيز إليه . 1 
(۷) عدد اختيارات التفرع الممكنة مع استخدام جملة ع815 .. معط .. 1 هو ثلاثة . ( 
(۸) أفضل حلقة تكرارية تستخدم عند معرفة عدد مرات التكرار مسبقاً هى معط .17 ( 
(3)عامل المقارنة ( => ) يعبر عن أكبر من أو يساوى . 2 
(١٠)تستخدم‏ الدالة ( 3/104 ) لإيجادٍ باقى القسمة الرقمية . ) 


أكتب الأكواد اللازمة لعفل الآتى: 

(١)الإعلان‏ عن الثابت ءاه ط٤8۲‏ من النوع مه( لتخزين القيمة (۲۳۲ /3 /5 )5١١‏ بداخله . 
(7)تخصيص القيمة " مونديال ۲۰۱۸ " للمتغير بوناصدا00 ۔ 

(۳)الإعلان عن المتغير ( كر ) الذى يقبل قيم رقمية صحيحة . 


أختر الإجابة الصحيحة من بين الأقواس : 
(١)المتغير‏ الذى يستخدم فى جملة ×6 ..1701 يسمى 
(Counter — Step — Byte - Text)‏ 
(۲) الكلمة المحجوزة التى تستخدم فى إنشاء سطر جديد هى 
(Dim — As - vbCrLf - Byte)‏ 
(۳)يتوقف التكرار فى الجملة: 2 مع51 10 0 5 = M1‏ 50 عندما تصبح قيمة المتغير M‏ .... 
( أكبر من قيمة النهاية ‏ أصغر من قيمة النهاية - أصخر من أو تساوى قيمة النهاية ) 
٤(‏ ) عدد مرات التكرار فى الجملة الآتية : 3 مع514 10 10 2 = × ۴0۲ يكون ............... 
075561 


1 الفصل الدراسى الثانى ١‏ 


5 أسئلة وردت بامتحانات المحا فن الكمد 
15و اختر الاجابة الصحيحة من بين القوسين : 


Dim i As Integer ا(1(‎ 
For i = 20 To 18 Step -2 


7 
626 . المتغيرات الآتية عدا النوع‎ 
[hla [ ) Double — CE Short ) 

(۳) فی الأمر الآتى 1٥ 6 tep 2 ... ٥×‏ 1< ۴۵۲ عدد مرات التكرار يساوى 


5-2 ) [الغربية] 


: معدل تزايد العداد فی كل مرة ھی‎ E 10 9 فى الصيغة التالية 3 مم8‎ )٤( 
الامعدرية‎ ]) 1 3 € 


Dim X AsInteger 

Dimi AsInteger 
X=6 

Fori = 0 To]3) رادرهة‎ 2, 

X=i+X 


#۴ س” : 


Total = Total + X 
MsgBox (Total) 
Next 

For X = 1 To 8 Step 2 
Dim X , Total As Integer 


القصل الدراسى | 


: ل 
التكرار والإجراءات جوتو وتكنولوجي ت والاتصالات 
| استخدام جملة Do While ... loop‏ 


*.تستخدم جملة التكرار, المحدود (1/14..... ,0 ,).لتنفيذ كود معين, عدد من المرات 
( فى حالة معرفة عدد مرات التكرار مسبقاً ) . 
»«؛ تستخدم:جملة التكزار ( م100 .::ع1ف«اللا 00 ) لتكزاز كود معين-عددٍ من المرات 
( فى حإلة عدم معرفة عدد مرات التكرار مسبقاً ) بناة على شرط معين . 
-:ويمكن القول أن جملة التكرار:( م100::. W118‏ 00 ) .تستحخدم لتكر ار كود معين عدد 
مرات غير معروف نهايته طالما أن شرط تنفيذ التكرار.صواب !1۲8 ». ويتوقف 
التكرار عندما يصبح شرط تنفيذ التكرار خطأ "8و1جم" . 
* مشال )١(‏ : تكرار ذهاب الطالب إلى المدرسة يؤميآ يتوقف على شرط معين هو استمرار 
العملية التعليمية ٤‏ ويتوقف التكرار عندما يصبح شرط التکرار خطأ "2156". 
* مثال (؟) : تكرار استقبال أسّماء الطلاب فى صندوق النص ( ٠٠×۲80×‏ ) والخروج من 
التكرار عند كتابة اسم معين معين أو كتابة كلمة معينة ( مثل كلمة 4م13 ) . 


[ الصيغة العامة لجملة تت1 ... While‏ 06 


( تعبير شرطى Do while + (Conditional Expression‏ 
الأوامر المظلؤب تكرار تنفيذها “6086 
نهاية جملة التكرار ' Loop‏ 


# يتم تنفيذ الكود الذى بين بداية الحلقة التكرارية (ع11أطثالا ©0) ونهايتها (pەەL)‏ طالما 
أن التعبير الشرطى: صحيح "عنم" 

# يتوقف تنفيذ الكود عندما تصبح قيمة التعبير الشرطى خطأ "73156" » يتم الخروج من 
الحلقة التكزاريّة وتنفيذ الكود الذى يلى "مهه "إن وجد . 

* يقوم الحاسب بتنفيذ جملة التكزار ( م00 !ا ... Do while‏ ) كالتالى : 

- إذا كان ناتج التعبير الشرطى صواب "ع1" فيقوم بتنفيذ الكود الذى يلى الشرط حتى يصل إلى 

كلمة م1.00 ثم يعود مرة أخرى إلى سطر (عازطس ..100) ويقوم بتقييم الشرط ملزة أخرى فإذا 
كان الشرط مازال "1116" فيتم التكراز مرة أخرى وهكذا حتى يصبح الشرط خطا "٤إ"‏ 
فينتهى التكرار . ويقوم البرنامج بالخروج من جملة التكراز وتنفيذ الكود الذى يلى كلمة من 


إن وجدتا . 


الشرط فى جملة ( 1/1/1118 ... 0٥‏ ) هو شرط نهاية التكرار). 


ا ا الفصل الدراسى الثانئ ١‏ 


الكميهوتو وتكنولوجيا المغلومات والإتطالات 


# صمم مشرو ع به نافذة نموذج لاستقبال عدد فردى أو عدد زوجى . 
- النموذج به أداتين زر الأمر: الزر 1مم)ن 8“ مكتوب عليه ( أعداد فردية ) * 
والزر ”2مم]ن85“ مكتوب عليه ( أعداد زوجية ) . 
# المطلوب : عند إدخال رقم موجب فى مربع النص والنقر على زر ( أعداد فردية ) يتم 
عرض الأعداد الفردية بدأ من )١(‏ وحتى الرقم الذى تم إدخاله فى مربع النص تصاعدياً . 
- وعند النقر على زر ( أعداد زوجية ) يتم عرض الأعداد الزوجية بدأ من )١(‏ وحتى الرقم 
الذى تم إدخاله فى مربع النص تصاعدياً . 


ام يميت ] 


EEE 


واجهة المستخدم لعرض الأعداد الفردية أو الزوجية 
* ود البرمجة التالى لإجراء حدث )ء اع الخاص بزر ر إعداد فردية ن کالتالی: 


( Do .. Wh¡اe الطريقة الثانية با استخدام ر‎ | ۴٥۲ ... .. Next ام ز‎ 
DimN , i, As Integer DimN,i, As Integer 
N = TextBox1.Text N = TextBox1l.Text 
ListBox1. Items: ClearO) [ListBox1. Items. Clear) 
i=1 
Do While i<=N : For i = 1 To N Step2 
ListBox1. Items. Add( i) ListBox1. Items. Add( i) 
96 E2 Next 


٭ لاحظ تم حذف محتويات أداة Listbox1‏ بالكود: ( ListBox] . Items. Clear(‏ 

> تم إضافة قيمة (1) إلى أداة Listhox1‏ بالكود: ListBox1. Items. Add(i)‏ 

) بنفس الطريقة أكتب الكود فى معالج الحدث "0111" الخاص بزر أمر ( أعداد زوجية‎ )١( 
.)1 = 2 ( بتعديل قيمة‎ 


3 الفصل الدراسى الثانى 1 


EE 
۶| EEE 
: 
0 


التكرار والاخراءات ) الكمدهوقو وتكنولوجيا المغلومات والإتصالات 
(۲) قم بتعديل التدريب السابق لطباعة الأعداد تناز لياً بدلا من تصاعدياً بالاستعانة بالتالئ : 
2ع 2 Fori =N To‏ 722 1< :1023:7011 


رقدريب _) 

٭ صمح بر نامج يحتوى على نافذة نموذج "۴۵۴۳" »۰ يستقيل عدد موجب . 

» المطلوب: عند إدخال رقم موجب فى مربع النص والتقر على زر (مجموع الأعداد الفردية) 
يتم عرض مجموع الأعداد الفردية بدا من )١(‏ وحتى الرقم الذى تم إدخاله فى مربع النص 

- عند النقر على زر ( أعداد. زوجية ) يتم عرض الأعداد الزوجية فى أداة "13ع25,آ" بدأ 
من )١(‏ وحتى الرقم الذى تم إدخاله قى مريع النص . 


اا ٠١١١‏ جع الاعاد الفرمة والروجية ااه 
ادخل عدد موحب 7 
المجموع 15 


١‏ س| مجموع الاعداد الزوحية 


واجهة المستخدم لعرض مجموع الأعداد فردى وزوجى 


> استعن بالإرشادات التالية : 
)١(‏ كتابة الكود فى إجراء حدث اماع الخاص بزر (مجموعة الأعداد الفردية) بطريقتين : 


١ «(Do ... باستخدام رعاتط الا‎ ]1[ (For ... Next ) باستخدام‎ [1] 
DimN ,i, Sum As Integer DimN ,i, Sum As Integer 
N = TextBox] .Text N = TextBoxl. Text 
i=1 
Do While i<=N For i = 1 To N Step2 
Sum = Sum + i Sum = Sum +i 
i=i+2 
Loop Next 
Label3. Text = Sum ‘ المجموع‎ Label3. Text = Sum 


# لاحظ الفرق بين بناء جملة 1/4 ... ۴0۴ وبناء جملة ھا D0 Whi‏ . 
(۲) بنفس الطريقة أكتب الكود فى معالج الحدث :اع الخاص بزر (مجموع الأعداد زوجية). 


| | الفصل الدراسى الثاتى E‏ 


مع افتراض أن المتغيرات قد تم الإعلان عنها : 


Sum = 0 

Count = 0 
Do While (X < 10) 
Sum = Süm + X 
Coünt = Count + 1 
Loop. 
Average = Sum / Count 


)١(‏ ما هو الخطأ فى هذه الأوامر ؟ 
(۲) أكتب الخطوات اللازمة لتصويب هذه الأوامن. 
الإجابة : تصويب الأوامر: 


Do While (X <10) 
Sum = Sum + X 
Count = Count + 1 


Average = Sum / Count 


قم بتحويل الأمر Ne×†‏ ... +10 اتال إلى Do While ... Loop‏ 


Fori= 1To 10 
MsgBox(i*i) 


Nezrt 


الفصل الدراسى الثانئى ا أ 


ق التكرار والإجرادات "١‏ الكم هوتو وتكنؤلوجيا المقلومات والاتصالات ‏ - 

استخدم جملة التكرار :76 ... 10 لتكوين الحلقة التكرارية التنازلب 
15-10-51 -20) فى المتغير 01/5 . 

أكمل الأوامر التالية لبرنامج يجمع الأعداد الفردية من را وحتى ر ؛ 


AE a ج‎ X , total, Y As Integer 


الا 


Y = Me. TextBox1. Text 
32-1 
Do While X <= Y 


1812112 AOL FESR SE Ga aaa 


Me: Label2.. ......: 


ضع علامة ”) أمام العبارة الضحيحة وعلامة »م أمام العبارة الخطأ : 
)١(‏ الأ مەه ...0/5118 120 يستخدم لتكرار تنفيذ مجموعة من الأوامر إذا كان الشرط 


صحيحاً " ميم ", ) 2( 
(۲) تستخدم جملة التكزاز ( م106 ... 5701116 120 ) لتكرار كود معين عدد من المرات غير 

معروف فهايته يتا على شرط معين . ) 2 
(۳) تستخدم جملة (8[56 .. 1865 .. 17) فى حالة وجود أكثر من اختيارين للتفرع . ر( ( 
)٤(‏ كلمة ما5 اختيارية فى الأمن مآ ... ھانhۋW‏ 26 . ) ( 


حدد المختلف فيما يلى : 

For - Do - While - Loop (1) 

For — Do - Next - Step (") 

Label Textbox integer = ListBox (F) 
Const = Me Dih 4U _ Name (£) 

أكمل ما يأتى بكلمات مناسبة : : 
)١(‏ فى الأمر Whi1e ..: 100p‏ 120 عندما يكون الشترط ...ا يتم تنفيد الاوامر التى كلى 
الشرط إلى أن يصبح الشرط ....... يتم تنفيذ الأوامر التى تلى كلمة ومهم إن وجدت . 
(۲) يطلق على المتغير الذى يتحكم فی عدد مرات تنفيذ الأوامر اسم 5 

. تستخدم جملة التفرع .. فى حالة وجود أكثر من تعبيرين شرطيين‎ )١( 

(5)فى أمن: التكرار, .. :لا نعلم مسبقاً عدد مر أت التكر ار ويتوقف عدد مرات التكرار 
على صحة الشبرط 

(2) تمثل :! .. نهاية التكرار في جملة التكرار علزطW‏ 50 . 


1 ا الفصل الدراسى الثانى ١‏ 


الكصيهيدتر وتكنولوجيا المغلومات والإتصالات 


] اقرا البرنامج التالى ثم أجب عن الأسئلة : [ذمياط‎ 
Dim x, total As Integer 
x= 2 
Do While x <= 10 
Total = Total + x 
x=x+2 
Loop 


Me. Label]. text = total 3 
: بعد قراءة البرنامج أجب‎ * 


NOLA DEE VERE PEATE REET LOE E E هذا البرتامج يحسب‎ )١( 
تم الإعلان عن المتغيران 10681 , × باستخدام الدالة‎ )۳( 
المتغيرات 0681 , × من النوع‎ )۳( 
م00 ... 171/116 120 أمر تكرار لتنفيذ مجمو عه من الأوامر إذا كان الشرط‎ رمألا)٤(‎ 
وغير ما يلرم [المتوفية]‎ ۴۴ ... Next إلى الأمر‎ 50 ... ١/11 حول الأمر‎ 
Dimi = 1, Total As Integer 
Do While i <=8 
Total = Total + i 
1-1+2 
Loop 
MsgBox (Total) 


باستخدام ( ماطس ... 10 ) أكمل الأكواد التالية لايجاد مجموع الأعداد الزوجية 
من (2) إلى (10) [الدقيلية ] 


Dim a as integer =2 , sum as integer 
Do while 


MsgBox (sum) 
: الثالى‎ ) For ... Next ( استخدم جملة ( رهم.آ ..۔ eانطW 120 ) بدلا من جملة‎ 


For Counter = 2 To 10 
MsgBox ( Counter + 2 ) 
Next 


الفصل الدراسى الثانى | 


gia 


التكرار وا لإجراءات الكميهوتر وتكنولوجيا المغلومات والإتطالات 


3 
Procedures | 45| الاجر‎ 
e © 

>« مقدمة : 
٭ عند إضافة نافذة نموذج ”7017“ جديدة ينشأ تصئنيف ”1355©“ جديد باسم 10701 
- فى نطاق هذا التصنيف نعلن عن : 

„ “Event Procedures” إجراءات الأحداثت‎ )١( 

. 53/391258” المتغيرات‎ )١( 

, “Constants” الثوايت‎ )۳( 


7 Form1.vb [Form1.vb [Design] Start Page ] 
TForm1 a— (1) v 
6 Public Class Form1 «— (2) 


Private سهد‎ (ByVal sender As 


(4) 


(5) 
Private Button2_Click (ByVal sender As 


(6) 


End Sub 
End Class 4—(7) 


رقم )١(‏ نموذج باسم (5001) , 

رقم (") تصنيف باسم (20101) . 

..ı( Button1 Click). رقم (") إجراء دت‎ 

رقم (5) مكان كتابة الكود (©00©) الخاص بحدت (اإءذاع) لزر الآمز (11061ن8) . 
رقم (°) إجراء حدث (Button2 Click)‏ , 

رقم (5) مكان كتابة الكود (©00©) الخاص بحدت (ءااع) لزر ,الأمر (۸2 0ں م) , 


NEFER KE EOE 


رقم (۷) نهاية تصتیف 501171 . 


| ا القصل الدراسى الثاتى 


1 


1 الكح هوق وتكنولوجيا المغلومات والإتضالات‎ ٠ 
: ) والزوجية من ( إلى‎ )١ * إلى‎ ١( الكود التالى عرض الأعداد الفردية من‎ > 


لل سي Befr‏ 


2 
Dim [Total] As Integer 
3 7 1 5 1 
25 Private Sub [Button1_Click] _ Click | (ByVal sender As System. 


عرض الأعداد الفردية من 3 ی 1۰ ا 
)4( 


BE As Integer 
LaBbell. Text > 
For 1 = I To: 10 Step 72 
„_ Label1. Text = Label1l. text "ايت‎ &i 
Next 
End Sub 


5 
Private Sub| Button2_Click} (ByVal sender As System. 


عر طن:الأعداد. الزوجية من" إلى ۰ REM‏ 

Ù) As Integer‏ ا 

Labell. Text =" " 

For i = 2 To 10 Step 2 : : 
Labell. Text = Labell. text &" " &i 


Next 
End Sub 


End Class عله‎ (3) 


“۴۵۲۳۸17 تصتیف "ووو[C" تحت اسم‎ ]١[ 
إعلان عن متغير (101431) على مستوى التصتيف.‎ ]۲[ 

: اسم أداة الزر: » )اع اسم الحدث‎ Button1 ) إجراء حدث ( )و11 ©_1ممنان8‎ ]٣[ 
.(Button1_Click إعلان المتغير (1 ) فى نطاق ( إجراء حدث‎ ]٤[ 

[2] إجراء حدث ( )عا Butt0n2‏ ) 2ممكن8 اسم أداة الزر » 01161 اسم الحدث . 
[5] إعلان المتغير ( 1 ) فى نطاق (إجراء حدت (Button2 Click‏ . 
[۷] نهاية التصنيفا,المبنمى “Form”‏ 


واجهة المستخدم لعرض 
الأعداد الفردية والزوجية ١‏ 
من )١(‏ إلى )٠١(‏ 2 | | 


a‏ الفصل الدراسن الثانى 1 ا 


1 


التكرار والإجرادات 


الإجراء Procedure‏ ا 


هو مجموعة من الأوامر والتعليمات (©000) تحت اسم ما » يمكن استدذعاءه بهذا 

الاسم ليتم تنفيذ هذه الأوامر والتعليمات ‏ 
ز الإعلان عن الإجراءات Procedures‏ 2 

- يتم الإعلان عن الإجراء © إذا كان لدينا مجمواعنة من الأوامّت يتكرن” اشتخداطها 
فى أكثر من موضيع داخل ,التصنيف . 

- يتم الإعلان عن.الإجراء مرة:واحدة » ويستدعى أى.عدد من المرات . 

- يتم الإعلان عن الإجراء لعدم تكرار كتابة نفس الكود فى أكثر من موضع . 

- يمكن أستدعاء الإجراء بكتابة اسمه فى أى مكان تريد عندما تزية داخل نافذة الكود. 


ل 78 


| . أنواع الإجراءات فى ئفة  )01/8.0161(‏ ) 


أولاآً: إجراء فرعى ( 505 ) لا يعود بقيمة . 
ثانياً:دالة ('صهأأعمداع ) تعود بقيمة ۔ 


الشكن املد عن الا جرا ا5 


صيغة الإعلان عن الإجراء طاuاك‏ 


الو تا اسح الإجراء بداية الإعلان 
Sub + Sub Name + (Parameters )‏ 
الأوامر والتعليمات المطلوب تتفيذها ... 0806© ... 


End Sulb- نهاية الإجراء‎ 


* ان 5 : بداية الإجراء.. 


Name *‏ طان5 : تشير إلى اسح الإجراء الذى سوف يستدعى من خلالة . 

× | rametersو۴P‏ : هی القيم التى سيتم استخدامها داخل كود الإجراء عند استدعاء 
الإجراء »والوسائط يمكن أن تكون قيم مجردة أو متغيرات أو 
توابت أو.دوال . 

* هن : هى مجموعة الأوامر والتعليمات التى سيتم تنفيذها عند استدعاء الإجراء . 

. نهاية الإجراء‎ : End Sub * 


| الفصل الدراسى الثانى E‏ 


1 الكميهوقر وتكنولوجيا المغلومات والإتصالات 
ي( تدريب_] الإعلان عن الإجراء (©1دا5 ) واستدعاءه _ )- 


- الإعلان عن إجراء (ن1ا5 ) اياسم ShowOddOrEven‏ واستدعاءه : 
- نستخدم الإجراءطنا5 لعدم تكرار كتابة كود معين فى أكثر من موضع كالتالى : 


Public Class Forml 
Dim Total As Integer 


Private Sub (Buttonl_Click |(EyValsender AsObject, 


عرض الأعداد الفردية من ١‏ إلى REN ٠١‏ 
نم بم] )( [showOddOrEven‏ 
End Sub‏ 


Private Sub Button2_Click (ByValsender AsObject, 


عرض الأعداد الزوجية من ۲ إلى REM ٠١‏ 


ری کج | ( ) ShowOddOrEven‏ 


End Sub 


O 
)3( (Sub) (ShowOddOrEven E (5) 
Dimi As Integer 
Label1l. Text =" " 
Fori = (1L) 7o 10 Step 2 ' (1) قيمة بداية التكرار‎ |)6( 
Label1. Text = Labell. text &"" &i 
Next 
End Sab سه‎ (7) 
End Class له‎ (8) 


)١(‏ استدعاء الإجراء فى حدث )ع)اع الخاص بأداة الزر 581110171 بكتابة اسم الإجراء 
وهو( ShowOddOrEven(‏ „ 

)١(‏ استدعاء الاجر اء قى حدث )عاع الخاص بأداة الزر 51011002 بكتابة اسم الإجراء 
وهو( ShowOddOrEven(‏ „ 

Sub )۳(‏ بداية الإعلان عن الإجراء . 

)5( اسم الإجراء ShowOddOrEven‏ .„ 

(°) وسائط الإجراء تكتب بداخل القوسين( ) بجوار اسم الإجراء . 

(5) الأوامر والتعليمات (006©) التى ستتفذ عتد استدعاء الإجراء 806 : 

(۷) نهاية الإجراء 836 . (۸) نهاية التصتيف 1 «تدره2م ‏ 


1 القصل الدراسى الثائى | | 


الكمديوتر وتكنولوجيا المغلومات والإتضالات 


تم الإعلان عن الإجراء السابق باسم 51017/00007208 يحتوئ على الكود 
المكرر ولا يحتوائ على وسائط “16/5 تووم“ . 

- وتم استدعاء الإجراء بكتابة أسمهفى كل من إجراء الحدت (1_©!1161 0۸ا )8u‏ الخاص 
بطباعة الأعداد الفردية » وإجراء الحدث ()ءزا©_2 10۸ 8) لطباعة الأعداد الزوجية . 

- ويمكن استدعاء إجراء 51701/00002066 أى عدد من المرات فى أى من إجراءات 
الأحدات داخل التصنيف . 

* لاحظظ؛ عند اختبار البرنامج والنقر على زر (فردى) أو الزر (زوجى) فى الحالتين 
سوف يطبع الأرقام الفردية فقط ء لأن قيمة بداية الحلقة التكرارية قى الكود الخاص 
بالإجراء ( ShowOddOrEven(‏ هى )١(‏ 5 


Sub ShowOddOrEven ) ( 
Dim i As Integer 
Labell. Text =" " 
For 1 =[ 1] To 10 Step 2  ' )١( قيمة يداية الحلقة التكرارية‎ 
Label1l. Text = Label1l. text "عت‎ " &i 
Next 


اا عرض الزوجي والغردي أ ص | 


VOY 


- لحل هذه المشكلة : 

- عند استدعاء الإجراء 51701/00610721/61 لايد أن يستقبل القيمة )١(‏ أو القيمة (9) . 
- القيم )١(‏ أو (7) تستخدم فى تحديد هل سيتم عرض الأعداد الفردية أم الأعداد الزوجية . 
- لذلك نستخدم المعطيات )Parameters)‏ مع الإجراء 7اع 51001/06000121 كالتالى: 


تعديل المثال السابق بالإعلان عن الوسائط (1021217214215) واستخدامها : 
۴ المطلوب : عند استدغاء الإجراء :5011/0000 يجب أن يمنتقيل: 
القيمة (١)للأعداد‏ القردية أو يستقبل القيمة (۲) للأعداد الزوجية . 
٭ لعمل ذلك نضيف متغير باسم 51916 کو سيط فی الإجراء ' Sh0W0 40۲٤e‏ ليد 
م 
استدعاء المتغير عند استدعاء الإجراء كالتالى : 


| !| |] الفضل الدراسن الثانى 


الكم جو تو وتكنولوجيا المغلومات والإتضالات 


Sub ShowOddOzrEven ByVal! As Integer) 
Dim i As Integer 12 
Labell. Text = " ! 

2021 = TET SEBA TOA 


Labell. Text = Labell. text & "" & i 
Next 
End Sub 


Parameter والإغلان عن سيط‎ ShowOddOFEVên تح الإعلان عن.إجراء باسخ‎ )١( 
. Start باسم‎ 

(۲) تح:استخدام الوسيط ”615217306167 في الكود كبداية للحلقة التكراز:ية حتى يمكن تحديد 
قيمة مجردة بذاية للتكرار وبناء عليه تعرض الأعداد الفردية أو الزوجية . 


_ Private Sub Buttonl Click (ByVal sender As QPiget, 
REM ٠١ إلى‎ ١ عرض الأعداد ا‎ 
ShowOddOrEven )) 1 (( ¦ 86910506114 القيمة بين القوسين تسمى‎ 
End Sub 2 5 


Private Sub Button2 Click (ByVal sender As Object, 
REM ٠١ عرض الأعداد الزوجية من ۲ إلئ‎ 
ShowOddOrEven ' Argument تحديد قيمة‎ 
End Sub و‎ 5 


(۳) استدعاء الإجراء (51011/000071207/60) وتحديد قيمة )١(‏ لعرض الأعداد الفردية . 
(4) استدعاء الإجراء (5101/00001720760) وتحديد قيمة (؟) لعرض الأعداد الزوجية . 
٭ اضغط على مفتاح ( ۴5 لجر البرنامج: 


فردى 


> عند الإعلان عن إجراء. ۵إ لالع 600" يمكن استخدام أكثر من وسيط )16 222920 , 
٭ عند استدعاء الإجراء يمكن تحديد قيم من.خارج الإجراء يطلق غليها (1010176215/) . 


5 القصل الداراسى الثانى 1 : 


التكرار والإجراءات 


5: 


ات “Event Procedures”‏ فى نطاق 
هو مجموعة من الأوامر والتعليمات له اسم معين . 
(؟) يتم الإعلان عن الإجراء الفرعى مرة واحدة ويمكن استدعاؤه مرات عديدة . 
(؟ ) نقح باستدعاء الإجراء بكتابة 


(") يبدا إلإجراء دده بآمر 
(۷) نلجأ للإعلان عن ........ فى حالة إذا ما كان لدينا كود "006" سيتكرر كتابته فى أكثر 
من موضع داخل التصنيف . : 
)ني إا دالة تستخدم فى فى الحصول على باقى القسمة الرقمية . 
(۹) البيانات التى يتم إدخالها إلى الكمبيوتر يتم تخزينها فی موعطلا . 
و ) معام احتياززى,قى آمر ( a (For .. ×٤‏ .. 


ملم من خلال نافذة الكود التالية اجب عما يأتى : 


Dim Total As Integer 


Sub ShowOddOrEven (ByVal Start As Integer) 
Dim i As Integer چ‎ 
Labell. Text = " " 
Forl = Start To 10. Step 2 
Label1. Text = Labell. text & "" & i 
Next 
End Sub 
End Class 


ير ا 


(5) ينتهى الإجراء ب EOE‏ د ETE‏ 


. الإعلان عن الثوابت :”5 مغو من©'“ يتم فى نطاق تصنيف النموذج‎ )١( 
الإجراء هو مجموعة من الأوامر والتعليمات (ع000) له اسم معين م ( ج‎ )۲( 
× . الإجراء ( انك ) له قيمة راجعة (يعود بقيمة)‎ ( 
لا يجوز استدعاء الإجراء ( 5115 ) أكثر من مرة واحدة فى نافذة الكود . و‎ )٤( 
۸A . الإعلان عن المتغيرات ”732168“ يتم فى نطاق الإجراء فقط‎ )١( 
0 . يبدا الإجراء بأمر التفرع ( معط ...1۴ ) ثم اسم الإجراء‎ )5( 
TEE . يتم الإعلان عن المتغير ات باستخدام جملة أ‎ )۷( 
تستخدم لتخزين الأعداد الصحيحة فت‎ Integer &|ا٥ المتغيرات من أنواع ع۸‎ )( 
XxX) 


(5) تستخدم ©0235 ... 5616 فى حالة وجود احتمالين فقط للتفرع . 

‘< ) ناتج المعادلة التالية بعد التنفيذ: ( 2 +4 ) * 2 + 2 هو 18 ۔‎ )1١( 

2 اذكر المصطلح أو المقهوم العلمى : 1 

2 ا ل ا 
)١(‏ جملة تشير إلى نهاية الإجر| End:‏ 

(۳) أمر يدل على بداية الإجراء . 

(4) إجراء لا يعود بقيمة . .طناك 

(2) من خلاله نقوم بإستدعاء الإجراء الفر عى 515 . 

١ 01‏ ) أختر من العمود [ ] ما يناسبه من العمود [ب] : 


العموه رأ العمود ري) 
١‏ | تستخدم للتعبير عن نافذة النموذج الحالية لع ١ Function (i)‏ ] 
۲ تستخدم الدالة إذا كان لديناركود سينتج عنه قيمة نحتأجها . J‏ 1 (ت) 0100 
۳ | التعبير الشرطق دائمآً له ناتج . زب (ج) ق : 
٤‏ | تستخدم لاستقبال قيم من خار ج الإجراء عند استدعاء الإجرا لر 0)(د ) | 6ا۴ / منص | 
د عا من عورا سل انعقاو نة مت آکیرو مرح أو بعادي وبح ا Mê‏ 


(ب) رتب السطور التالية وفقا لأولويات تنفيذ العمليات الحسابية - 
( 2 )) رفع الأسس . : 

( 98) الضرب والقسمة من اليسار إلى اليمين . 

( 4 ) الجمع والطرح من اليسار إلى اليمين . 

4 الأقواس من الداخل إلى الخارج 


0 الفصل الدراسى الثاتى ۱ | ا 


ERE 
| 
سور‎ 


التكرار والإجراءات 


1 الا‎ OD 


Function الدائة‎ 1 


هى مجموعة من الأوامر تحت اسم معين ١ء‏ يفضتل أن يكون الاسم معبراً عن وظيفتها . 
_ يتم تطبيقها على مدخلات أو وسائط (6]615:ه:هم) وتعود بقيمة . 
صيغة الإعلان عن الدالة 120141612 )ب 


الوسائط اسح الدالة بداية الإعلان 
Function + (Function Name ) + (Parameters) As DataType‏ 


الأوامر والتعليمات المطلوب تنفيذها ... 6006 .. 
القيمة الراجعة Valle‏ 56111111 


End Function نهاية الدالة‎ 


1 *  ةلاذلا بذاية الإعلان عن‎ : Function 
. يعبر عن اسم الدالة الذى سوف نقوم باستدعائها من خلاله‎ : 1217© 
. هی الوسائط التى سوق تستخدم فى الكود‎ : 15 

© : : تحدد نوع بيان القيمة الراجعة من الدالة . 

©0601 : هى مجموعة الأوامر والتعليمات التى ستنفذ عند استدعاء الدالة . 
Return‏ : : أمر إرجاع القيمة . 

مuاة۷:‏ تشير إلى اسم المتغير الذى يحمل القيمة الراجعة من الدالة . 
End, Function‏ : هى نهاية الدالة . 


تدریب) حساب مجموع رقمين ]ے 
# بمساعدة معلمات صمم نافذة النموذج ( 00م المقابلة. 


٭# اضغط مفتاح ۴7 من لوحة المفاتيح لفتح نافذة الكود. 
_ أكتب الكود التالى : 


1 ا الفصل الدراسى الثانى ' 


خ* + ا جا جا جا سا سر 


العدد الاوك E‏ 
5 
العدد الثانى FE‏ 


ES‏ الكميجوفو وتكنولوجيا المغلومات والإتضالات 
Public Class Form5S‏ 
)5( )4 )23 )2( زفق 
1 1 ¥ 4 


3 
( Function )ل‎ sum] (ByVal [ Firs As Single ,ByVal( Second) A5 single () As single) 


Dim Total As single (6) 
Total = First + Second (2) 
(_ Return Total) 8) 
End Function 9) 
End Class 


نافذة الكود معلن بها دالة تحت اسم ( SU"‏ ) 
Function )١(‏ : بداية الإعلان عن الدالة . 
20( 50 : اسم الدالة . 
(؟) (4) تم الإعلان عن الوسائط (1551]) و (5©60170) التى سوق تستخدم فى الكود 
(5) نوع الدالة رقمى عشرى ( ©51591 ) . 
(5) الإعلان عن المتغير 70121 ونوعه رقمى عشرى . 
(۷) تخصيص حاصل جمع قيمتى الوسيطتين ( 5660150 ,111514 ) للمتغير 10121 . 
Return 1018| )۸(‏ : إرجاع قيمة المتغير 10421 باستخدام الأمر 88٣٢‏ . 
End Function (°)‏ : نهاية الدالة,. 


- تم الإعلان عن الدالة («ں5) من النو ع (ماوہ81) » بحيث تستقبل قيمتين الأولى 
(First)‏ » والثانية )Second)‏ . 

تم الإعلان عن المتغير (70431) من النوع (ماوم¡8) وخصص له ناتج جمع القيمين 
(First)‏ و )Second)‏ لإرجاع القيمة (Tota|)‏ باستخدام (RetUrn)‏ . 


3 أنشئ إجراء الحدث الخاص بزر الأمر 0110051 ثم أكتب الكود التالى: 


Private Sub Buttonl1 Click (ByVal sender As Object, Les 
Dim x AS Single = TextBox1. Text 
Dim y AS Single = TextBox2. Text 
Label4. Text = Sum (X, ¥) 
End Sub 
End Class 


5 القصل الدراسى الثانى 1 ١‏ 


1 
ا ا ا مهد تو وتكنولوجيا دواتمااة 0 0 118 


.)۲6×180×1( تم الإعلان عن المتغير ( ×) وتخصيص له مدخلات المستخدم فى‎ )١( 

(۲) تم الإعلان عن المتغير ( ل ) وتخصيص له مدخلات المستخدم فى )۲٥×186×2(‏ . 

(*) لعرض ناتج الجمع » تم تخصيص قيمة الدالة (مسں؟) للخاصية (0عده1) الخاصة بأداة 
التحكم (120614) بعد استقبال قيمتى ( ۷ »> © ) من خلال صناديق النصوص . 


* المتغيرات (0/21131165) : يمكن تخصيص قيمة لها أثناء الإعلان عنها فى نمط 
التصميم أو أثناء سير تنفيذ تعليمات البرنامج وكذلك يمكن استخدام القيم المخزنة بها. 

* الثوابت (011512115©) : لابد من تخصص قيمة لها أثناء الإعلان عنها فقط وكذلك 
يمكن استخدام القيم المخزنة بها . 

* الدوال (2013113115) : تستدعى الدالة قتعود بقيمة فى ضوء القيم المخصصة لها . 


العدد الاوك 23 


- قم بالضغط على مفتاح ( ۴5 ) لتنفيذ البرنامج . 
- أدخل عددا فى كلاً من المربعين وانقر زر (2) . 


العدد النانى 14 


* يتضح مما عيق: أنه يمكن أن : 


3F 
تعلن عن دالة (جرهتاعصتاط) . 0 ولجهة المستحدة”‎ )١( 
. (؟) تحدد (وإعامصهإه۴) الخاصة بها‎ 
. تحدد نوع الدالة (مرمتاعصدا2)‎ )۳( 
. (Function) تكتب الكود فى نطاق هذه الدالة‎ )٤( 
. تعود الدالة («تددمعء 2 ) بقيمة‎ )2( 
عند إضافة نافذة نموذج (۴0۴۳) جديدة ينشأ تصنيف (01355) جديد باسم (1مع)‎ # 


- فى نطاق هذا التصنيف نعلن عن: (١)إجراءات‏ الأحداث (Event Procedures)‏ . 
(؟) المتغيرات )١( 2 . (Variables)‏ الثوابت (Constants)‏ . 

» أنواع الإجراءات فى لغة ( ۷8.6٤‏ ) 

أولا إجراء فرعى ( 5116 ) لا يعود بقيمة . ثانياً: دالة ( مو1]ءصناط ) تعود بقيمة . 


1 الفصل الدراسى الثانى 8 


ضع علامة 7 أمام العبارة الصحيحة وعلامة ون أمام العبارة الخطأ : 


. يتم الإعلان عن الإجراء (هن3ءهه0:) مرة واحدة ويستدعى أى عدد من المرات‎ )١( 
( .... يشترط عند الإعلان عن الإجراءات أن تستخدم وسيط ”ءاعد مهإة۴“ واحد فقط‎ )١( 
القيمة الراجعة للدالة (دمرن9) من النوع (ءر8) كما هو موضح فى إعلانها التالى:‎ )۳( 
(2 ) unction Sum(ByVal Start As Byte , ByVal Second As Byte) As Single 
. “Procedure” من خلال وسائط ”وإع†ءص هه۴۶“ الإجراء يتم استقبال قيم من خار ج الإجراء‎ )٤( 
تستدعى الدالة ”«هاممں۴“ فتعود بقيمة فى ضو ء القيم المخصصة لها . ر‎ )9( 
) . الإجراء نه“ لا يعود بأى قيمة أما الدالة ”موعن“ تعود بقيمة‎ )5( 
0 تحدث الأخطاء المنطقية (٤و ع8 حزعه.]) عند كتابة الكود بصورة غير سليمة‎ )۷( 
0 . يتم تخصيص قيمة الثابت عند الإعلان عنه أو أثناء تشغيل البرنامج‎ )۸( 
: ) أكتب أمام كل عبارة بالعمود رب) الرقم المناسب من العمود (أ‎ 


اسر ا الود ريع 
لا تخصص ة: ن تستدعى الدالة 
إجراء الحدث (Î | “Event Procedure”‏ ا E‏ ولعن 5 
الدالة “Function”‏ ب) | تخصص قيمة لها أثناء الإعلان عنها فقط 
المتغيرات “Variables”‏ ج) | هو إجراء من النوع “Sub”‏ . 
تخصص قيمة لها أثناء الإعلان عنها أو 


1 3 
التوابت Constants”‏ د) أثناء تشغيل البرنامج . 


: أستخرج من الكود ”6006©“ الآتى‎ 
٤ Sub ShowOddOrEven(ByVal Start As Integer) 

Dimi As Integer 

Label1.Text = “ “ 

For i = Start To 10 Step 2 

Label1.Text = Label1.Text & “ “ & i 

Next 

End Sub 


)١(‏ اسم الإجراء 
(5) وسائط الإجراء 


5 الفصل الدراسى الثاتى ا 1 


التكرار والإجرادءات الكمجوتو وتكنولوجيا المغلومات والإتضالات 
8 استخرج من الكود e7‏ ل٥٥٤“‏ الآتى : 
Function Area(ByVal Radius As Single) As Single‏ 
Const X As Single = 22/7‏ 
Dim Res As Single‏ 
Radius = TextBox]. Text‏ 
Res = * Radius ^ 2‏ 
Return Res‏ 
End Function‏ 
)١(‏ اسم الإجراء هو . 
(۲) وسائط هذا الإجراء 
(۳) القيمة الراجعة مخزنة فى المتغير 
)٤(‏ نوع البيان الخاص ب: [ أ ] الدالة ........... [ب] وسيط الدالة 


: أكتب أى من الآتى إجراء (اجد5) أو دالة (دمتاعصد2)‎ 
0) 
Sub ShowOddOrEven (ByVal Start As Intrger, ByVal LastValue As Intrger) 
Dim 1 As Integer 
LaBel1l. Text = ““ 
For i = Start To LastValue Step 2 
Label1l. Text = Label1. Text & “ “i 
Next 
End Sub 


Function Area(ByVal Radius As Single) As Single 
Const X AS Single =22 / 7 
Dim Res As Single 
Radius = TextBox1. Text 
Res = *Radius^ 2 
Return Res 


End Function 


1 ِ القصل الدراسى الثانى 1 


ESS‏ الكميهوتو وتكنولوجيا المهلومات والإتضالات 


أآسئلة الوزارة 


اجب عن الأسئلة مستعيناً بالكود التالى : 


Private Sub Buttonl1 Click(By 
Dim M As Integer 
For M = 1 To 3 
MsgBox( M ) 
Next 
End Sub 


1 اي ا‎ UP يتم تنفيذ الكود عندما يتم الضغط ول‎ )١( 
TT تم استخدام الأمر د1 للإغلان عن (متغير‎ )۲( 
53 اسم المتغير المستخدم فى الحلقة التكرارية هو:‎ )۳( 
قيمة بداية الحلقة التكرارية ......... وقيمة ة النهاية . ......... وقيمة الزيادة‎ )٤( 
يتوققف سی الحلقة التكرارية ال ی ن ری إلى‎ )69 
ED SRS الكود الذى يتم تکراره هو‎ )5( 


اخ عن الأسئلة مستعينا بالكود القالى : 


Private Sub But_ Repeat _ Click(ByVal sender As System.Opject, 
Dim M As Integer 
Me. Label]. Text= "" 
For M = 5 To 9 Step 2 
Me. Label1l. Text = Me. Label]. Text & M vbCrLf 


NS, ED IPE NEE OE )۷ (المطلوب رقم‎ 
MsgBox( " ("انتهى البر نامج‎ 
End Sub 


: الغرض من الكود هو‎ )١( 
يتم تتفيذ الكود عندما يقع الحدث‎ )۲( 
تم استخدام الآأمر‎ ) M1 ( للإعلان عن المتغير‎ )۳( 
5 : جملة التكرار المستخدمة هى‎ )٤( 
EE DTS ع رحد‎ NEI الكود المراد تكراره هو : او‎ )۵( 
: الغرض من استخدام معامل الربط ج فى الجملة‎ )1( 

Me. Label1. Text = Me. Labell. Text & M 
أكتب مكان النقط جملة الكود اللازمة لإظهار القيمة النهائية للمتغير ( 7/1 ) بعد تنفيذ الحلقة‎ )۷( 
. التكرارية فى مربع صندوق رسالة‎ 


aE‏ الدراسى الثانى 


على أداة التحكم . 


التكزار والإجرادات 


اس" : ضع علامة ر أو علامة ر أمام كل جملة مما يلى مستعينا بالكود التالى : 


Dim N, product As Integer 
Dim str As String 
Me. TextBoxl. Text = " " 
For. 2-2 To 13 
Str = 3 يق‎ "x"&N & "=" 
Me. TextBox1l.Text = Me.TextBoxl. Text & str & product & vbCrLf 
Next N 
End sub 


e 1 N TE الغرض من الكود هو:‎ )١( 
.( ئا٣ الإعلان عن متغير حرفى باسم‎ 51١ الغرض من الكود: وہذ)S عل :م‎ )۲( 
١ الغرض من الكود: [( * 3 = مهرم هو تخصيص ناتج ضرب الرقم 3 فى المتغير‎ )۳( 
0) . 01061104 للمتغير‎ 
ہام‎ duet الغرض من الكود: 71 * 3 = 6ع11ل0:رم تخصيص ناتج ضرب الرقم 3 فى المتغير‎ )٤( 
) . 71 للمتغير‎ 
الغرض من الكود التالى:‎ )5( 
Me.TextBox1.Text = Me. TextBoxl. Text & str & product & vbCrLf 
لصندوق‎ 1٠×1 هو وضع قيمة المتغير النصى عاو وناتج المتغير 0804م كقيمة للخاصية‎ - 
3 , "1 النص ' 0×1 8 هدع‎ 
0 . الغرض من حزء الكود (1:2ة:©ط») الانتقال إلى سطر جديد‎ )1( 
7× 5-35 | ٠12ر:‎ )1( الكود التالى لطباغة جدولاً لضرب الأعداد للعدد رك من‎ 
1 المطلوب: عدل الكود التالى بحيث يطبع جدولاً لضرب الأعداد للعدد ر بحيث‎ 
7511-7 : يكون الناتج فى صندوق النص كما هو موضح‎ 


Dim N, product As Integer 
Dim str As String 
Me. TextBoxl. Text = " " 
For N = 1 TO 12 
St = 4 ءق‎ "x"&N & "- " 
product = 4 *N 
Me.TextBox1.Text = Me.TextBox1l. Text & str & product & vbCrLf 
«Next N 
End Sub 


أ آ الفصل الدراسى الشائى 


/ الكميجوتر وتكنولوجيا اليغلومات والإتصالات 
الغرض من الكود التالى لطباعة جدولا لضرب الأعداد للعدد ز 9ع من (1) :ر10 . 


TE 


المطلوب: صوب الأخطاء الأربعة بالكود : حتى نحصل على نتيجة تشغيل صحيحة للكود فى الجدول . 


Dim N, product As String 
Dim str As String 
Me. TextBox1l. Text = " " 
For N = 1 To 10 Step-1 
Str = 9 & "x"&N & "=" 
product =9 +N 


Me.TextBox1.Text = Me. TextBox1l. Text عق‎ str & product & vbCrLf 
Next str 


End Sub 


الجدول التالى يحتوى على الكود وناقذة النموذج الخاصة بتشغيل الكود لطباعة جدول 


الضرب لأى عده من را إلى (12) . 
المطلوب: أكمل مكان النقط بما يلزم للكود بالجدول لنحصل على ناتج صحيح بعد تشغيل البرنامج . 
الكود 


نافذة تشغيل البرنامج 
Dim M, product, Num As Integer‏ 
Dim str As String‏ 
Num = Me. TextBox1l. Text‏ 


Me. TextBoxl. Text = " " 
1 To 12 


=Num & "x"& M & "=" 
product = 


Me.TextBox1l . Text = Me. TextBoxl. Text 
& str & product & vbCrLf 


8 الفصل الدراسى الثاتى ا | ا 


التكرار والإجرادات الكمهو تو وتكنولوجيا المغلومات والإتفالات 
8 أجب عن الأسئلة مستعينا بالكود التالى : 
To B Step. C‏ 1= 


Me.TextBox1. Text = Me.TextBoxl. Text & i & vbCrlf 
Next 

: الغرض من آلكود هو‎ )١( 

(۲) اسم متغير العداد هو : ... 

(۳) تيدأ الحلقة التكرارية بالقيمة 

(4) تنتهى الحلقة التكرارية عند القيمة 

(2) قيمة زيادة العداد 1 

a E EAS DE : الغرض من ( ۴ا٤۷ ) هو‎ )5( 

الكود التالى يستخدم فى إدخال عدد موجي . وعند الضقط على زر رأعداد قردية) يطبع 
الأعداد الفردية من 1) حتى العدد الموجب الذى تم إدخاله , وإذا تم الضغط على رأعداد زوجيق 
يطبع الأعداد الروجية من (5؟) حتى العدد الموجب الذى تم إدخاله قى صندوق النص 

الكود 


Dim N, i As Integer Ê چ لاع رة والروجة‎ 
N = TextBoxl.Text 


ListBox1. Items. Clear ( ) | EEE 
i= 1 


Do While i<= N | 
ListBox1. Items. Add (i) | 


اعداد زوجية iT‏ 


Loop 
EE O E SR, : جملة التكرار فى البرنامج هى‎ )١( 
LBER : الغرض من الكود (2 + ¡ = 1) فى السطر قبل الأخير هو‎ )١( 
. : الغرض من م00.] هو‎ )۳( 
: لصحيح لتحديد طبيعة كل جزء من مكونات سطر الكود التالى‎ ١ حدد الاختيار‎ )5( 
ListBox1. Items. Clear () 1 


. أداة تحكم‎ E) 
. متغیر‎ © 


* الكمسيدنو وتكنولوجيا المغلومات والاتصالات 


Dim i, N, Sum As Integer : الغرض من الكود التالى‎ )1( 
N = TextBoxl. Text 


....... هو‎ N = TextBox1.Text 
Do While i <= N : جملة التكرار المستخدمة فى الكود هى‎ )؟١‎ 
E ... سيتم تنفيذ الحلقة التكر ارية طالما أن‎ )۳( 
Loop يتم إظهار مجمو ع الأعداد الفردية فى‎ )٤( 
Label3. Text = Sum EE ECE E 
من العدد الموجب الذى تم إدخاله فى أداة التحكم‎ 
: ضع علامة ر”) أمام العبارة الصحيحة وعلامة رم أمام العبارة الخطأ‎ 
الإجراء ءعتنقكونن:2 عبارة عن مجموعة من أوامر وتعليمات يتم تكرارها عدد محدد من‎ )١( 
) . المرات‎ 
معا عبارة عن مجمو عة من الأوامر والتعليمات تحت اسم معين » و عند‎ ue الإجراء‎ )۲( 
) . استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعليمات‎ 
الغرض من استخدام الإجراءات و٥ لمعه" هو تكرار كتابة كود معين عدة مرات فى‎ )۳( 
0 . البرنامج‎ 
عندما يكون لدينا كود معين نر غب فى تكراره فى أكثر من مو ضع داخل التصنيف نمنتخدم الدالة‎ )٤( 
) . Function 
مجموعة الأوامر والتعليمات التى يتم وضعها تحت اسم » وعند تنفيذها تعود بقيمة نطلق‎ )5( 
) . Procedure عليها إجراء‎ 
مجموعة الأوامر والتعليمات التى يتم وضعها تحت اسم » وعند تنفيذها تعود بقيمة نطلق‎ )5( 
) . Function عليها دالة‎ 
عندما يكون لدينا كود معين نر غب فى تكراره فى أكثر من موضع داخل التصنيف نستخدم‎ )۷( 
. Procedure إجراء‎ 
. تستخدم وبرع]ء در ه۴۲ لاستقبال قيم من خار ج الإجراء عند استدعاء الإجراء‎ )۸( 
. Argue عند استدعاء إجراء باسم (1225)0.05 » فإن القيمة بين القو سين يطلق عليها‎ )۹( 
) 
) Argument عند استدعاء إجراء باسم (19229)0.05 » فإن وع2ة1” يطلق عليها‎ )٠١١ 
1 . )8230 الإعلان عن دالة يبدأ (طن؟) وينتهى ب (05ا5‎ )١١١ 
0 . (End Function) الإعلان عن دالة يبدأ (دروتاعمن) وينتهى ب‎ )١7( 
0 . نلجا لاستخدام الدالة ه10]عددن"1 إذا كان لدينا كود سينتج عنه قيمة نحتاجها‎ )١7( 


القكراروالاجزاءات ).. الكم هوتو وتكنولو جا المخلومات والإتطالاد 

( 0 لجا لاستخدام الإجراء eإں‏ لع ع۴۲ إذا كان لدينا كود سينتج عنه قيمة تحتاجها. ( 

)٠١(‏ الدالة عبارة عن مجمو عة من الأوامر والتعليمات باسم معين يمكن أن تأخذ وسائط 
Param‏ وتعود بقيمة راجعة ع باج . 0 

)١7(‏ الدالة عبارة عن مجموعة من الأوامر والتعليمات باسم معين يمكن أن تأخذ وسائط 
Values‏ وتعود بقيمة راجعة :رماع دونه . ع 2 

)١(‏ يؤخذ على لغة 78.N۴1‏ أنها سمحت للمبرج الإعلان عن دوال وإجراءات أخرى يعدها 

الميرمج بتفسه . ) 


أكمل التالی مستعيناً بالكود التالی : 


Sub ShowOddOrEven (ByVal Start As Integer) 
Dim i As Integer 
Labell. Text =" " 
For i = Start To 10 Step 2 
Label1l. Text = Label]. text "ع8‎ " &i 
Next 
End Sub 


(۲) تم الإعلان عن Parameter‏ باسم 
(۳) الحلقة التكرارية تبدأ من القيمة . 


| أكمل التالى مستعينآ بالكود التالى : 


Function XXX (ByVal YYY As Integer, ByVal ZZZ As Integer) As Single 
Code 
Return RRR 
End Function 


TT : اسم الدالة هو‎ )١( 

(1) تو ع البيان الخاص بالقيمة الراجعة من الدالة 

(۳) الوسائط 221811616125 التى سوق تستخدم فى الكود 
)٤(‏ القيمة الراجعة من الدالة هى : 


ا ْ ا( القصل الدراسى الثانى 


الكميهوفو وتكنولوجيا المغلومات والإتصالات 


فنننت© أسثئلة عامة على الفصل <3759 52 


ضع علامة ر أمام العبارة الصحيحة وعلامة رمم أمام العبارة التغطأ : 


)١(‏ التوابت (وأموائوه) عبارة عن مجموعة من الأوامر والتعليمات تحت اسم معين وعند 


استدعاء هذا الاسم يتم تنفيذه هذه الأوامر والتعليمات . ١‏ ( 
(۲) الغرض من استخدام الإجراءات (sعإںءءه۴)‏ هو عدم تكرار كتابة كود معين عدة مرات 


فى البرنامج . ) ( 
(۳) كلمة Sp‏ اختيارية فى الأمر Do While ... Loop‏ . ) ( 
)٤(‏ الدالة (ممناعصن1) عبارة عن مجمو عة من الأوامر والتعليمات تحت اسم ما ويمكن أن تأخذ 
وسائط (75ع]2212261) وتعود بقيمة راجعة . 
(5) تستخدم جملة التفرع 11 .. 1۴ البسيطة في حالة وجود بديل واحد فقط . 
(5) إذا كانت قيمة العداد "برهن" تساوى قيمة 1200 ينتهى التكرار . 
(۷) يستخدم الأمر ع119 .. 11165 .. 1۴ فى حالة وجود اختيارين للتفرع . 
(۸) الإجراء 56 عبارة عن مجموعة من الأوامر والتعليمات تحت اسم معين يمكن أن يأخذ 
و سائط (كإع†6ءصإهإه۴) ويعود بقيمة راجعة (من اه )V‏ . ) ( 


2 حدد قيمة المتغيرات رلا , > بعد نهاية التكرار وعدد مرات التكرار: 


ا کر ا 
SC 2‏ 


X=8 
Y=2 
Do while X < 12 


X=X+Y 
67-1 
Loop 


أكمل ما يأتى بالكلمة المناسبة مما بين القوسين : 

VbCrlf — REM — Focus — Double — Item — Mod )‏ ( 
لله 255 0 مستكدم فى إنشاء سطر ج 
(؟) لكتابة الملاحظات داخل نافذة الكود نستخدم الأمر N EEE RENEE‏ 
(۳) عند تسمية المتغيرات لا نستخدم الكلمات المحجوزة مثل TT‏ 
)٤(‏ يتم إضافة عناصر إلى أداة القائمة 1156130 باستخدام الخاصية E EE‏ 


(2) الدالة EEE E E O E‏ لي كي 00 
() الدالة ...................... تستخدم لتركيز مؤشر الفأرة فى أداة صتدوق التص . 


كه الفصل الدراسى الثانى ا أ 


التكرار والاجرادات الكصضيهوتو وتكنولوجيا المغلومات: والإتصالات 
83057 اختر الإجابة الصحيحة مما يلى : 


: Do While ... Loop الأوامر المتكررة فى‎ )١( 
51 . لا يتم تنفيذها بالمرة‎ ] ١ [ 
. [ب] يتم تنفيذها مرة واحدة على الأقل‎ 
. [ج] يتم تنفيذها إذا كان الشرط صحيحاً ''ع1م1"‎ 
. [د ] يتم تنفيذها إذا كان الشرط خطأ 'ع1218"‎ 
هي مجموعة من الأوامر والتعليمات تحت اسم معين وعند استدعاء هذا الاسم يتم تنفيذه‎ 


هذه الأوامر والتعليمات 
[Î]‏ جملة Else‏ ]ب[ جملة For ... Next‏ 
[ج] التصنيف 1855© ]د [ الإجراء Prosedure‏ 
(1) تستخدم جملة عن المتغيرات . 
Focus() [ Î]‏ ب[ جملة Const‏ 
End If [e]‏ د ] جملة دص¡ 
(5) ........ مفيدة فى حالة معرفة عدد مرات التكرار مسبقآ بشكل قاطع . 
Do... While [ 1]‏ ب] I ... Next‏ 
Exit Do True [e]‏ 
(2) وسيلة تركيز موشر الفأرة داخل صندوق النص هي .. 
Dim Focus( )[ |‏ 
End If [e]‏ د [ Const‏ 
(5) يطلق على المتغير الذى يتحكم فى عدد مرات تنفيذ الأوامر في جملة )×ع... 1201 اسم 
Repeater [ ' [‏ ب] Loop‏ 
Counter [e |‏ د ] 
(۷) فى جملة م1.00 ... ©7731 120 يتم الخروج من التكرار 
[] خطأ "False"‏ ب 
[ج] يتم تنفيذها مرة واحدة على الأقل د] 
مفيدة فى حالة عدم معرفة عدد مرات التكرار 
While [Î]‏ ...0 
Trié [e]‏ 
(1) ناتج تنفيذ العملية الحسابية : 2* ( 5 + 3 ) هو 
13 
اج و9 


ا | ا القصل الدراسى الثانى 


] ع بعد نهاية التكرار: [ البحر الأحمر‎ M , N أكتب قيمة المتغيرات ر‎ 
Dim M,N As Integer 
M = 20 
N=6 
For N =6 to 20 Step 2 
M=M+3 
Next 


اختر الناتج الصحيح من بين الأقواس : 
Mod 8 = 5‏ 58 ( 2 - 4 - 6)[البحيرة] 
Dim i As Integer‏ 


For i= 20 To 18 Step -2 


(۲) قيمة ( ¡ ) فى الكود السابق تساوى (20 - 18 - ٠)16‏ [الإسكدرية] 
(۳) فی الأمر الآتى غ×Ne‏ ... 2 N = 1 70 6 step‏ ۴0۲ عدد مرات التکر ار يساوى 
E O‏ 
)٤(‏ فى جملة For ..... Ne»)‏ الآتية 3 ۴٥۲ × = 1 70 8 Step‏ عدد مرات التكرار: 
(1- 2 - 4 - 3)[آسوانع] 
02 اعد ترتيب الخطوات الآنية ترتيباً صحيحاً لحساب مجموع الأعداد الفردية من ١‏ إلى :٠١‏ 
Total = Total + i‏ 
MsgBox (Total)‏ 
Next‏ 
For i = 1 To 20 Step 2‏ 
Dimi, Total As Integer‏ 


2 قم بتتبع مجموعة الأوامر الآتية والمطلوب ما قيمة المتغير × التى ستظهر فى صندوق 
الرسالة بعد إنتهاء مرات القكرار.. إكف رالشيخ] 


X= 5 
For 1-0 To 7 3 
2-2 
Next 
MsgBox( X) 


الفصل الدراسى الثانى 


التكرار والإجزادات . الكميجوقر وتكنولوجيا المغلومات والإتصالات. 
القالية : 
للإعلان عن الثوابت في لغة 178.711 . [ آسوان ] 
هي الخاصية التي تشير إلى النصر. المحدد بالأداة »1151130 . [ القاهرة | 
تستخدم للربط بين السلاسل الحرفية . [ الغربية ] 
حدود القيمة المخزنة به هي عدم أو 29198 . [ دمياط] 


07 ضح علامة ر” أمام العبارة الصحيحة وعلامة ر»م أمام العبارة الخطأ : 

( المتغير من النوع -روعه]10 يستخدم لتخزين الأرقام الصحيحة فقط . [أسيوطع]‎ )١( 

(۲) جملة )× ... 2601 تستخدم فى حالة معرفة عدد مرات التكرار مسبقاً . إدمياط] _ ( 

(۳) أمر التكرار مهه ... 557116 120 يقوم بتنفيذ الأوامر بعد 175712116 1(0 إذا كان الشرط 
خطأ ”عوإه۴“ . [ الدقهلية ] 5 0 ( 

(5) يمكن التحكم فى تكرار تنفيذ مجموعة من الأوامر والتعليمات (001016) عدد محدد من المرات 
باستخدام جملة التكرار Ne×)‏ ... ۴0۲ .. [المنوفية] 

(5) المخازن التى تتغير قيمها أتناء تشغيل البرنامج يطلق عليها اسم الثوابت. إقليوبية] 

(5) الكود التالى يحتوى على خطأ من النوع اللغوى (801 عدهغد51) |الشرقية] 


272 بفرض آن المتغيرات قد تم إعلانها حدد الخطأ فى الكود التالى : 


Sum = 0 
Count = 0 
Do While (N<5) 
Sum = sum + N 
Count = count + 1 
Loop 
Average = sum / count 


21 أكتب أمر هلم ..: ۴۲ بحيث تكون قيمة العداد زع كالتالى : 


(End = 5 « Start = 25 < Step -5 (‏ 
E‏ اجب عما يأتى : 
)١(‏ أكتب الكود لتخزين القيمة ( 5 ) فى المتغير ( 8 ) . 
(۲) أكتب الكود لنسخ محتوى الأداة 0×1 )»ك1 إلى الأداة 126611 
(۳) أكتب الكود لتسخ محتوى الأداة 1 ×0 ۲٠×8‏ إلى الأداة TexBo>x2‏ 
(4) أكتب الكود لتخزين القيمة ( 5 ) فى الأداة ( 13ع86نآ) . 
(2) أكتب الكود للإعلان عن الثابت ماةل 81١٤1‏ ونوعه هة وقيمته 1/1/2004 . 


لقائر الكمجوتر وتكنولوجيا المعلومات والإتضالاث 


أعد كتابته الكود التاى فى ترتيب منطقى باستخدام جملة ©1915 .. If .. he‏ : 
MsgBox(False)‏ 

If 20 > 18 Then 
MsgBox(True) 


7 اکتب المفهوم العلمی لکل مما يأتى : 

. دالة تستخدم فى تركيز مؤشر الفأرة داخل صندوق النص‎ )١( 

(۲) متغیر رقمى يستخدم لحساب عدد مرات التكرار . 

(۳) جملة التكرار التى تستخدم فى حالة معرفة عدد مرات التكرار مسبقاً . 

. أوامر تتحكم فى تنفيذ أمر أو أكثر مرة أو أكثر إلى أن يتحقق شرط معين‎ )٤( 

(5) خاصية تستخدم لمعرفة رقم العنصر المحدد داخل أداة 15]860152آ . 

اختر الإجابة الصحيحة من بين القوسين : 

( For .. Next - صفر‎ - 3 - False - True - Select .. Case = If... Then ..Else ( 

.... ترقيم العناضر داخل الأداة :11561360 يبدأ من ....... ولذلك يأخذ العنصر الرابع الرقم‎ )١( 

(؟) تسمح لك جملة التكرار .04-351 بكرا "تتفيذ: أمن أو اکر عد مراك" مروف قا - 

(؟) جملة الشرط .م تستخدم في حالة وجود احتمالين للتفرع . 

(4) جملة الشرط .......... تستخدم في حالة وجود أكثر من احتمالين للتفرع . 

(2) فى الأمر م٥10‏ ... 711116 ٥0‏ عندما يكون الشرط .............. يتم تنفيذ الأوامر التى 
تلى الشرط إلى أن يصبح الشرط ae EE E‏ 

ضع علامة ر“ أمام العبارة الصحيحة وعلامة ر»م أمام العبارة الخطأ : 

. 1 يكون الناتج‎ )10 M04 3( باستخدام الدالة ” 200 “ فى التعبير‎ )١( 

(۲) جملة ه77 ... +170 تستخدم فى حالة عدم معرقة عدد مرات التكرار مسبقاً 

(۳) كلمة 1٠‏ تستخدم لإنشاء سطر جديد في نافذة الكود . 


(4) نستخدم جملة موه ... 561604 عندما يكون لتفرع معتدماً على متغير واحد . 
(5) معامل الريط (8).تستخدم كمغامل لجملة للتخضيط :1 


سر سل سل سل سل 
س ت تا ات نه 


5 الفصل الدراسى الثانى آ 


Dim i As Integer 


050 دد قيمة التي :© فى كل مرة مز مرت رار 


For i=1To3 
C=C*i 
Next i 


باستخدام جملة الشرط (171068 ... 14) البسيطة أكتب كود البرمجة اللازم لإظهار صندوق 
رسالة “Message Box”‏ به كلمة ( ناجح ) إذا كانت الدرجة المدخلة إلى صندوق النص 
المسمى ”121301“ أكبر من أو تساوى (50) . 

* ملجوظة ( أكتب الكود المطلوب فى الناحية اليسار من الجدول اعتماداً على خطوات الحل التالية ) 

9 البداية 

(؟) إدخال الدرجة (1 

(۳) إذا كان 50 =< 2 إذن: 

(+) طباعة ( تاجح ) 

(©) النهاية 


String 
(ب) | جملة تكرار‎ 
Integer )ج(‎ 


Do While .. Loop 
للإعلان عن أسماء المتغيرات نستخدم أمر‎ | )1( 
الرمز < > يسمى‎ | )5( 
1 Dim ( 1 - التخزين قيم عددية صحيحة نستخدم متغيرات من النوع‎ (5 
لتخزين اسم طالب نستخدم متغير من النوع (ه) لا يساوى‎ | )©( 
: سالك ضع علامة ,“ أمام العبارة الصخيحة وعلامة () أمام العبارة الخطأ‎ 
( المتغيرات من أنواع 1016 & عاع510 تستخدم لتخزين الأعداد الصحيحة فقط‎ )١( 
( . يتم استقبال مدخلات المستخدم من خلال العديد من الأدوات منها ع:و76:240‎ )١( 
) . نستخدم جملة الشرط 112612... 14 للتعبير عن التفرع برمجياً‎ )۳( 

) 

) 


. يستخدم المعامل الحسابى ( / ) لإيجاد حاصل ضرب الأعداد‎ )٤( 
. يتم الإعلان عن اسم الثابت ونوعه وقيمته فى نمط التصميم فقط‎ )5( 


| 1 الفصل الدراسى الثانى ا 


کر ص س کل 


#لكاتر الك هو تو وتكنولوجيا المغلومات والإتصالات 
١|‏ ا باستعمال الأمر )1< ... F٥۴‏ غير قيم العداد رن بالتزتيب اتی : َ 
3١ ١ ۲۸ ۰۲١ ۰ ٤۲ ۰ ٤۹ (‏ ) علماً بأن قيمة بداية العداد هئ ٤٩‏ . 
أختر الإجابة الصحيحة من بين الأقواس : 
Dim Age As Single‏ 
Dim Mark As Integer‏ 
Age = 25.5‏ 
Mark = 90‏ 
Age > 26 Then‏ 11 
Age = 16‏ 
Mark = 100‏ 
End If‏ 
Total = Mark * 2‏ 
* بعد تنفيذ العمليات السابقة تكون : 
)١(‏ قيمة eعA‏ تساوى ( 25.5 -16-90 ) 
(۲) قيمة المتغير 10121 تساوى ( 200 - 180 - 190 ) 
حدد ناتج تنفيذ العمليات القالية : 
الا و اھ ا ف ا ا 
اخترالإجابة الصحيحة لكل مما يأتى : 
)١(‏ يتم تخصيص قيم لها عند الإعلان عنها فقط : 
[ أ ] التعبيرات الشرطية [ب] المتغيرات (Variables)‏ 
[ج] الإجراءات الفرعية إد ] القوابت (Constants)‏ 
(؟) جملة 8156 ... ع1 ... "11 تنتهى ب : 
Finish [ Î]‏ إب] End [ 4 End If [+] Stop‏ 
(؟) جملة 56166]...0256 يفضل استخدامها فى حالة وجود : 
[أ ] اختيار واحد [ب] متغير واحد للتفرع [ج] اختيارين للتفرع د ] متغير واحد للتفرع 
)٤(‏ التعامل بأسلوب الثواب أو العقاب نعبر عنه : 
IF ... THEN [Î]‏ إب] ( Focus(‏ 
End Sub [ i] IF... THEN ... ELSE lel‏ 
)°( تتتهى جملة ( ©ع025...اهه561 ) ب : 
End [ İ1‏ إب] Finish [z1 End Select‏ إد [ End If‏ 
ا 


3 القصل الدراسى الثانى ا | ا 


Cyber bullying 
1 1 


a 


يعرف التعدى الإلكترونى . 
يحدد وساط التعدى الإلكترونى . 

يميز أشكال التعدى الإلكترونى . 

يتبع السلوك الصحيح فى مواجهة التعدى الإلكترونى . 

يطلب المساعدة من الأفراد والهيئات المسئولة عن حمايته من التعدى الالكترونى . 
يذكر الهيئات والجهات المسنولة عن حمايته عند التعرض لأى تعدى إلكترونى . 


ا ا الفصل الدراسى الثانى 


1 


التعدى الإلكترونى 


Cyber bullying 


*٭ نمهيد : 
© أخلاقيات التعامل مع الإنترنت ومع كافة وسائل المعلومات والاتصالات أصبحت الآن 
من الموضوعات التى تهم الأفراد والمجتمعات بل والدول. 
* لذلك نهدف هنا إلى رفع الوعى لدى أبنائنا الطلاب بأهمية أخلاقيات التعامل مع 
الإنترنت وإكسابهم بعض المعلومات والمهارات اللازمة لرفع درجة سلامتهم 
الشخصية فيما يتعلق بالتعدى عبر الإنترنت . 


# الإنترنت لها جانبين : 

كا الجانب الإيجابى للإنترنت : نتعلم - نتثقف - نتسلى = نتواصل ونتحاور . 
8 الجانب السلبى للإنترنت : توجد مخاطر عديدة يمكن أن نتعرض لها منها : 
* يمكن أن نحصل على معلومات خطأ . 

* يمكن أن نقع فريسة لبعض المعتدين عبر وسائط الاتصال الإلكترونية . 1 


5 


* انتهاك الخصوصية . 

* انتحال الشخصية . 

* سرقة حسابك على مواقع التواصل الاجتماعى مثل موقع التواصل ع[0موطء236 أو 
البريد الإلكترونى 1[نممطط . 

* تعرض جهازك لمخاطر الإصابة بالفيروسات أو برامج التجسس أو برامج القراصنة 


م جر 


- هو سلوك عدوانى متعمد من شخص لآخر عير وسائط الاتصال الإلكترونية . 
* صور التعدى الالكتروتى : 
)١(‏ التحرش . (۲) المضايقة . ("7) الإحراج. 
)٤(‏ التخويف . (6) التهديد SS N‏ 


كك الفصل الدراسى الثانى | ا 


التعدى الإلكترونن . الكهجيهيوتر وتكنولوجيا المغلومات والإتصالات 
* ثانيا.:|* الوسانط الالكترونية للتعدى : 


. الیرید الإلكتروفى ]نوصغ‎ )١( 

(5) المنتديات الإلكترونية كتصسدحده . 

. Instant Message الرسائل الفورية‎ )( 

. 210 المدونات الإلكترونية «تووع‎ )٤( 

(2) المواقع التواصل الاجتماعى » مثل >اه00اع 230 . 


- من أشكال التعدى الإلكترونى : 

)١(‏ التخض الإلكتروفى (/#اتددتيصممصظ)!: ا 
- هو استخدام أسماء مستعارة تخفى الشخص المعتدى الإلكترونى بغرض عدم كشف 
أمره والإفلات من العقاب . ® 9 
)١(‏ المضايقات الإلكتروفية (ادعتددعمه11) : 
- هى رسائل عداتية موجهة ضد شخص أو أكثر . 

A : (Cyber stalking) الملاحقة الإلكترونية‎ (۳ ( 

- هى شكل من أشكال المضايقات الإلكترونية لكن بشكل متكرر حيث يتتبع المعتدى 
شخص معين فى كافة الوسائط الإلكترونية ويلاحقه . 

(5) السب أو القذف الإلكترونى (عماصنه11) : 

- هو نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من خلال أحد وسائط الاتصال 
الإلكترونية . 

(2) التشهير الإلكتروفى (0105) : 

- هو نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ . 

(1) الاستثناء الإلكتزوتى 5150 ناعاع): 

- عبارة عن تجاهل شخص أو أكثر من خلال وسائط إلكترونية . 


1 الفصل الدراسى الثانى د 


الكميهوتز وتكلولوجيا اليقلومات والاتصالات 
(۷( التهديد الإلكترونى (Cyber threats)‏ : 
- هو إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر . 
يف ان من التعدى الإلكترونى ؟ 
* باتباع قواعد الاستخدام الآمن للإنترنت التالية : 
)١(‏ لا تشارك أحداً بكلمة السر . 


(5) إعداد كلمة مرور يصعب استنتاجها . 

(”) عدم نشر أى بيانات خاصة . 

. عدم حذف.رسائل التعدى‎ )٤( 

(©) عدم مقابلة أحد تعرفت عليه من خلال الإنترنت : 

(5) عدم إرستال رسائل إلكترونية وأنت فى حالة غضب . 

(۷) إطلاع ولى الأمر بمن يضايق عند استخدام الإنترنت . 

(۸) إنزاك البرامج من الإنترنت يكون بإذن معلمك أو ولى أمرك . 


مواقف حياتية توضح أهمية الالتزام بقواعد:الاستخدام الآمن للإتترنت - ب 


)١(‏ قال عمرو لياسمين » أريد أن أرسل رسالة لصديق وليس عندى حساب بريدى إلكترونى 
لاکن القمكوالان تسلينى ابم المسعضم رعا المرور القاصون إل عدي ان من 
إرشال.هذهالزإسنالة؟ - 
س : فى رأيك اذا تفعل ؟ 

»د الإجاية : لا تشارك أحد بكلمة السر . 


)١(‏ قام عمرو بإنشاء حساب بريد إلكترونى خاص به فحاولت ياسمين 
استنقاج كلمة المزارر يان كنت أسمه ثم سنة ميلاذه ففتح الحساب ٠‏ 
س : فى رأيك ما الخطأ الذى وقع فيه عمرو ؟ وكيف يتجنب ذلك ؟ 
ج الاجاية اهر اشتار كلمة سر يمكن استتداجهاءء ولتجيب :ذلك عليه اختيازا ك درد 


صعوية عالية تحتوى على أرقاموحرؤزف. + وأكثر .من جروف ٠.‏ .مع :تغييرها كل فترة. 


8 الفصل الدراسى الشانى 1 ا 


التعدى الالكترونى ' الكمنيوتو وتكنولوجيا المغلومات والإتصالات 
(۳) قام:رامى بالاشتراك فى أحد مواقع التو اصل الإجتماعى 10060001 وقام بنشر 
معلومات تخص أسرته مستعرضاً صور الأسرة وأنشطتهم اليومية ومواعيدها فقام 
لص بدراسة تلك المعلومات وتمكن من سرقتهم . 
س : فى رأبيك ماذا كان يجب أن يقعل ؟ 
وهل هناك مخاطر أخرى يمكن أن يتعرض لها جراء هذا التصرف ؟ 
# الإجابة : مراعاة عدم نشر أى بيانات خاصة . 
# نعم مثل التعرض للتشهير أو الابتزاز أو انتخال الشخصية نتيجة وقو ع صور العائلة 
في يد أشخاص غير مسئولة . 
(4) اشتكى أحد الطلاب لمعلمه أن زميله سبه فى رسالة بريد إلكترونى » فطلب المعلم منه 
الإطلاع على هذه الرسالة ء فأجاب الطالب بأنه قد حذف O ١‏ 


ضيعت دليل الإدانة . 


س : فى رأيك ماذا كان يجب أن يفعل ؟ 
>8 الإجاية : عدم حذف رسائل التعدى والاحتفاظ بها كدليل على المتعدى . 

(5) قال عمرو لوالده لقد تعرقت على شخص فى إحدى غرف المحادتة ويؤد أن يقابلئيٌ ' 
س : فى رأيك ماذا كان ود والذه ؟ 
# الإجاية : حذره ومنعه من مقابلة أحد تحرف عليه من خلال الإنترنت . 

(5) حدثت مشادة كبيرة في حوار بين عمرو وياسمين عبر أحد مواقع التؤاصل الاجتماعى 
5 غرف المحادتة » قغضيا عمرو غضياً شديداً وبعث رسالة تهديد ووعيد لياسمين . 
بن : فى رأيك في تصرف عمرو ؟ 

* الآجابة : تصرف متسرع › يجب ألا تيعث رسائل لأى شخص وأنت غاضب . 

(۷) يستخدم عمرو الإنترنت فى عمل الأنشطة المدرسية بتعاون مع زملائه » كلما استخدم 
الإنترنت تصله رسائل فورية فى برامج المحادثة 4م01 مسيئة له » ففكر في الابتعاد عن 
استخدام الإنترنت حتى يتجنب تلك الإساءات _ 

س : ما رأيك في تصرف عمرو ؟ 
»* الإجاية : تصرف سلبى »يجب أن يخير ولى أمره أو معلم الكمبيوتر ليساعده قي 
تخطروتلك المشكلة بإيجائية. 


8 القصل الدراسى الثانى‎ ١ 


الكمجيوتر وتكنولوجنا المعلومات والإتضالات 
(۸) تقوم ياسمين بإنزال أى برامج من جميع المواقع التي تزور ها٤‏ فتسبب ذلك في إصابة 
الكمبيوتر بالفيروسات وبرامج التجسس . 


س : هل توافق على إنزال غبر معروفة من الإنترنت ؟ 
* الإجاية : لا » بل يجب التأكد من هذه البرامج ومصدرها ومراعاة حقوق الملكية 
الفكرية لهذه البرامج ء وطلب الاستشارة (المساعدة) من والدك أو معلم الكمبيوتن . 


امسر الجمل انتالية بما يناسبها من بين القوسين : 
( الوسائط الإلكترونية - المنتديات الإلكتروانية - الإنترنت - البريد الإلكترونى 1تجمم8 - 


. ك عدو انى متعمد من شخصاستخدام الوسائط الإلكترونية‎ SESS 
من مخاطر استخدام ( يمي يمكن أن_يتعرطن جهاز الكمبيوتر لمخاطر الإضابة‎ )5( 
. ا م مج التجسس أو برامج القرصنة‎ 


5 متها سس نان الى EE‏ 
ا رجا الغو كلتك فى ارال ر الل رسکی یرون ارد حلها ارق م" 
( احا عاس 0 نه إرسال المشاركة وتجد الردود 


من ارد 


[| ضع غلامة رح أمام ا ا الغبارة الخطاً: 

0(7 کک أن أكتر هن لال لوط الاک ر ری 

(؟) التخويف من أشكال التعدى الإلكترونى و ج ر لے ١‏ 

() من طرق الحماية عند استخدام الومتائظ الإلكتزونية » عتم مشاركة أحد كلمة السر الخاصة 
بك مهما كانت دراجة قرابته منك - E‏ 

)٤(‏ الاستثناء الإلكتزونئ نهو إزسال وسائل الكتروتية تحمل تهديد أو و عيد.لشخصن أو أكثر 


الفصل الدراسى الثانى 


.الكميهوتو وتكنولوجيا المقلومات والإتطالات 


a SNA) ac 


ضع علامة ”) أمام العبارة الصحيحة و علامة وى أمام العبارة الخطأ : 


)١(‏ التعدى الإلكترونى عبارة عن سلوك عدوانى متعمد » باستخدام الوسائط الإلكترونية للتحرش 
أو المضايقة » أو لل مر ا ا فضا س 

(۲) التعدى الإلكترونى يتم من خلال وسائط إلكترونية مت مواقم التواصل الإجتعا- ل )» 

() التخفى الإلكترونى يتير صورة من صور_التعدى الإلكترونى . E‏ 

)١(‏ التحرش والتهديد من أهم الوسائط الإلكترونية المستخدمة في التعدى إلإاكترر س وح 

(©) المضائقة والابتزاز من أشكال التعدى الإلكتر ون 

(1) سرقة حساب شخص في مو اقع التواصل الإجتماعى أو بريده الإلكترونى أحد المخاطر 
التي يمكن أن تتعرض لها عبر وسائط التواصل الإجتماعی سر کے ) 

() مواقع التواصل الإجتماعى تساعد في التعرف على أشخاص جدد يفضل مقابلتهم لتطوير 


لمر لجر ص لسر سل 


العلاقات الاجتماعية . ~۳ i)‏ 
(۸) تمشياً مع قواعد الاستخدام الآمن للإنترنت يفضل أن تضع كلمة مرور سهلة للبريد الإلكترونى 
الخاص يك حتى تستطيع تذكرها- م 


(1) الاستثناء الإلكترونى يعنى تتبع شخص معين في كافة وسائط التواصل CBT‏ 
)١١(‏ الملاحقة الإلكتزونية يقصد بها إرسال رسائل إلكترونية تحمل تهديد أو وعيد لتتخص أو أكثر. 


و ال د ا E‏ 
لاق کل اجدول الالى موتا ويك فى كل عبارة مما يلى : 


الموقف يك فى ضوء قواعد الاستخدام الآ 
كل كلق ١‏ رن O‏ 2 ع ع 


نشر شخص الأسمه الحقيقى وعنواتء ررقم ككل المن. 
تليفوته عبر الوسائط الإكترونية . 1 
إتزال أى بر امج تتاح لك على الإنتر دعد او لع اضرا 
الرد السريع الغاضب على تعدى قد تتعرض له 
عبر الإنترنت . 

كدف جميع الرسائل التى تم تدك بها فى 
مواقع التواصل الإجتماعى أو البريد الإلكتروتى 


الفصل الدراسى الثانئ 


ير وتكنولوجيا المقلومات والإتالات 


SC‏ ل سهد e E eS‏ كن 
إجراء محادثة فورية لاحظ عدم الرد عليه . 

[ أ | يعتبر.ما حدث شكل من أشكال E‏ ال وتم 

[ب] ماذا تفعل لمواجهة ذلك التصرف 

(۲) اشتركت في أحد مواقع التواصل الإجتماعى وفوجئت بتهكم أحد الأشخاص على مصر » 
والحديت عن رموزها بشكل غير لائق . 

- حدد أربعة تصرفات إيجابية يمكن من خلالها الرد عليه : 


لل أختر الإجاية الصحيحة لكل مما يأتى من بين الأهَوا 
)0 ................ الإلكترونئ عبارة عن تجاهل شخص أو أکذ 
زير الي للمادحقة ( الإستناء ) )ار 


مضايقات الإلكترونية - الاستثناء ) |البحيرة] 


ضع غلامة 0 أمام 'العيارة الصحيحة و علامة ونم أمام العبارة الخطأ: 
)١(‏ التعدى و عبارة E GWE‏ 0 
أو iT‏ 


هه - 


الفصل الدراسى الثانى 


التعدى الإلكترونى التكسيجوتر ونكنولوجيا المغلويت والإنصالات .2< || دادر 

. لا توجد صور من التعدى الإلكترونى داخل المجتسم المصرى‎ )١( 

. من أشكال التعدى الإلكترويج التخفى الإلكترونى‎ )٤( 

(2) التعدى الإلكترونى باستخدام الوسائط الإلكتروتية لا يؤدى إلى إيقاع ضغوط نفسية على 
0 


(۸) المضايقات لا مهي ر 
(1) البريد الإلكترونى 15211 کو طول ی عدو انی مک مج ) 


مقلة نک بو د ربو ے 
)١(‏ هو نشر كلمات عدائية ومبتذلة د ل MM‏ 


(1) هو إرسال رسائل إلكترونية تحمل تهديد أو وعيد لد أكثر 
(۴) هو نشر معلومات عن شخص محدد أو أكثر بشکل مسيئ . 
)٤(‏ هو استخدام أسماء مستعارة تخة الشخص المعتدى الإلكترونى بغرض عدم كشف أمرء 
والإقلتث من اقا 
(©) عبارة عن تجاهل شخص أو أكتر من خلال وسائط إلكترونية 
07 ا ا ا لولس 1 


فى كافة الوسائط الإلكتروتية وک : 00 


E‏ ) خار التسرف الخط ف و الحماية من التعدى الإلكازونى 


[ج] قم بالإبلاخ على المتعدى ا للسلطات المختصة . 
[د ) نشار ك آحد.يكلمة لسن الخاضة بف 

: السلوكياب التالية للسعاية من التعذي الالكترونى ما عدا‎ )١( 
ETI اك اجا‎ 11 


[ب] الا تتشر معلو. ملك حاضنة 3 
[ج] كلمة السر يمكن أن تكون تاريخ ميلاد أو شی 
[د ] لا تسرع بإرسال رسائل إلكترونية عند الغضب . 
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الكميجوتو وتكنولوجيا المغلووات والإتضالات 


ضع علامة ركم أمام العبارة الصحيحة و علامة رم أمام العبارة الخطأ : 
)١(‏ تستخدام كلمة (101111) للإعلان عن اللو 
(؟) تعبر كلمة (3/6) عن نافذة النموذج الحالية”, 
(۴) الأخطاء من النوع (مصنارسںم) تظهر يل 
٤ (‏ ) قيمة زيادة متغير العداد. ةذ اققا أن يكوق ج ا 
ST‏ سے 
(2) استخدام (8186) لسرن د مدر e E‏ ( 
(5) نستخدة الدالة الحسابية (08/) لإيجاد باقى القسمة E‏ ( 
8 أكمل الجمل التالية باختيار الصحيح من بين القوسين : 5 
(1) کر اسم الست يكم ا كين له 5 

(1) يستخدم معامل الربظ ((©) 
(۳) حلقة تكرارية تستخدم عند معرفة عدد مرات التكراز. 
Else )‏ ا (IF .. Then ES THE‏ 

ق النض يعنى تقل الت رکیز 


(FocüsZ Sel ae — Jndex ) 
o“ 


لط أكتب الصطب العلن : 


)١(‏ أماكن محجوزة بذاكرة الكمبيوتر تخصص لها قيمة يمكن أن تتغير هذه القيمة 


(؟) جملة التفرع التى تستخدم فى حالة اختيار أكثر من تعبير 3 
(۴) كلمة تحدد قيمة زيادة متغير العداد فى جملة ( (For ... Next‏ . 


أ أكمل الفراغات فى الجمل التالية بها هو مناسب : 
)١(‏ طبقاً لقاعدة أولويآت تتفيذ العمليات الحسابية فإن ناتج العملية الحسابية 42 3+2-3(*2) 


(1) ناتج التعبير الشرطى 106559 <> 300 ) هو 


2 لک ج‎ CERES Sos 
7 , عوسي ري ات وها يكتب بعدها لا يعتبر- إهماله أثنا تفي الكون‎ 


*؛ أكمل جملة جرء71 .. ۴0۲ التالية لعرض الأعداد الْكَنَ: 1 0 فى الكود التالى : 


a .... To 10 6 TEeEPo2 


3 5 الفصل الدراسى الثانى || 


ضع علامة رم أمام العبارة الس ام وم ام الس الخطا» 
)١(‏ كل نوع بیان له طريقة تخزين فى ذاكرة الكمبيوتر اا 


(؟) إذا كانت قيمة الثايت تاريخ أو وقت تكت ب بين علامتى ی 40000 ِ 
Const L AS Integer (‏ . سير 7 
Dim SUB As Single )2(‏ . ا 


TT 
تنفيذ عمليات الضرب/القسمة من اليسار إلى اليمين أيهما ار تسبق > الاس( ا‎ )0( 
, الكلمة المحجوزة ( ۷51۴ ) تستكدم + اء مر جديد‎ )( 


با 
(0) الإعلان عن 5-5 TT‏ اسمه وتو ع البيان . 


02( ييه عن أماكن محجوزة بذاكرة ا ثابتة القيمة ولها نوع بيان. 


) لاو لج ج ء فى الصيغة العامة لار امزال لع ةن تحدت عند كتابة د بشكل غير سليم 
يم من كتابة الكو د اققو م بالضغط على مه f‏ تعمل Start Debugging‏ . 


ما هو ناتج العمليات الحسابية التالية 1 

Dim X As Integer = 18 ll E 

ناتج ناقيد من الأكواد التالية 1f X Mod 3 =OThen‏ 

MsgBox ) " True ") 16 1 فت 1 ا‎ 
Else False [ب]‎ 


MsgBox ) " False ") n 
End If E 


DimX, T As Integer 


r 51 1 

For X=5 To 2 : 1 6 
8 8 1 2 5 

055+ 2 - 

Next در‎ 3 

MsgBox (X) 35 


سير کک ص 


Dim M As Integer = 10, : (؟) النائج الذى سيظهر قى صندوق العتوان هو‎ 
IF M >> 10 Then a 


Label1. Text = "One"! ZT eg A 
I TD, 1 TS Two [ب]‎ 


Else E 
Label1. Text = "Two! ise [e] 


End If 


أ 1 ١‏ الفصل الدراسى الثانى 


الفصل الدراسى الثائى 1 


* عند إدخال البيانات يتم تخزينها فى الذاكرة الكمبيوئن (1:4001) . 
# للتعامل مع البيانات ( معالجة البيانات ).فى 'ذاكرة الكمييوتر ( 470/1 :1 ) ؛ لابذ أن يحدد الها 
اسم معين . وكل بيان يحتاج إلى مساحة تخزين معينة حسب. نوعه : 
> من أفواع البيانات التى تتعامل معها تخ 79.1564 : 
- البيانات الرقمية الصحيحة: يتم الإعلان عنها ب:  Long - Thteger - 511031 = Byte‏ 
- البيانات الرقمية غير الصحيحة أو الغشرية: يتم الإعلان عنها ب: : 
Single - Double: Décimal‏ 

- البيانات الحرفية: يتم الإعلان عنها ب: String - Chaz‏ 
- البيانات المتنوعة: يتم الإعلان عنها ب: Object 212 268 Boolean‏ 
- البيانات المتنوعة لا تندرج تحت تصنيف البيانات الرقمية' أو الحرفية ٠‏ 
- يتم الإعلان عن بيانات التاريخ والوقت ب: 1024 
- يتم الإعلان عن البيانات. المنطقية ب:. 180012231 ء وتأخذ القيمة ©1203 أو ©2815 . 
- البيان من التوع 83/66 الحد :الأدنئ: له القيمة 0 والحد. الأقصبى 255 

# الثوابت عبارة عن أماكن مججوزة فى ذاكررة. الكمبيوتر 17 “RA‏ .: 

# عند الإعالان عن الثابت لابد أن:نحدد له اسم ونوع وقيمة . 

# قيمة الثابت (ثابتة) لا تتغير أثناء سير البرنامج . 

- من الثوايت الرياضية.: قيمة (ط) . 1 

- من ثوايت الفيزياء :.عجلة الجاذبية الأرضيةاء وسرزعة:الضوء والصصوات:. 

# عند اختياز: أمبماء الثوايت و المتغير اتة يفضتل .أن يكوزن: الاسم متعبراً عن الخغرضن' منه بحيث : 

+ ) -( أن يبدأ اسح الثايت أو “اسم المتغين بحرف أو علامة الشرطة السفلى‎ )١( 

(۲) ألا يحتوى الاسم على أى من الرمز أو العلامة الخاصة مش ( المسافة » النقطة وعلامة الاستفهام 

» وعلامة التعجب > والشرطة » وعلامة الجمع (9, + ر ) ...الخ 
(")الا تستخدم الكلمات المججوزة للغة 1713.104 فى تسمية الثوابت والمتغيرات . 
الكلمات المحجوزة مثل : Single , As , Dim , String , Double)‏ ..( 
# إعلان التوابت هى عملية إعطاء أسماء للخلايا التى تحمل قيم ثابتة . 


| الفصل الدراسى الثانئ 


1 الكمهجوتز وتكنولوجيا المغلوهات والإتطالات 
- يستخدم الأمر 002514) فن الإعلان عن التوابت فى.لغة:1764. 178 كالتالى : 
Const Constant Name As Data Type = Value‏ 
)١(‏ كه : هو أمر الإعلان عن الثابت ( يبدا الإعلان عن الثابت بالأمر 0554 ©) 
Constant Name (۲)‏ : اسم الثابت ( اسم فريد ) ۔ 
(؟) 12 10242 : نوع البيان الذى سيتم تخزينه قى 'الثايت . 
(4) 1721136 : القيمة الثايتة التى سيتم تخزينها فى الثابت المعلن عنه ٠‏ 
# إذا كانت قيمة الثابت حر فية تكتب بين علامتى التنصيص ( 55 “).. 
> إذا كانت قيمة الثابت تاريخ أو وقت تكتب بين علامتى( # #) . 
- لتشغيل البرنامج أنقر زر 1061116031326 54234 + أو اضغط على ( ۴5 ) من لوحة المفاتيح . 
> نطاق ( مكان ) إعلان المتغير آو الثابت هو الذى يحدد المكان المسموح باستعمال هذا المتغير أو 
القابت فيه داخل البرنامج . 
- يوجد مستويات للإعلان عن المتغيرات والثوابت : 
)١(‏ الإعلان عن المتغيرات والثوايت على مستوى الإجراء . 
(؟) الإعلان عن المتغيرات والثوابت على مستوى التصنيف . 
# إعلان المتغيرات هى عملية إعطاء أسماء للخلايا التى تحمل قيم متغيرة ‏ 
المتغيرات عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر R۸۷7‏ “. 
يتم تحذيد اسم ونوع المتغير عند الإعلان عنه . 
قيمة: المتغير عادة تتغير أثناء سير البرنامج ( ولذلك مثمى بالمتغير ) . 
يمكن أن يأخذ المتغير قيمة ابتدائية ( تسمى ٠/2106‏ 1016191 ) ثم تتغير هذه القيمة أثناء سير 
البرنامج حسب طبيعة البرنامج . 
# الإعلان عن متغير فى لغة '82510.101571 57151121 يعنى تحديد اسمه ونوع البيان . 
# الأمر 0 يستخدم فى الإعلان عن المتغيرات فى لغة Visual Basic.NET‏ 
Dim Variable Name As Data Type [= Initial Value]‏ 
D1 )١(‏ : هو أمر الإعلان عن المتغير . (يبداً الإعلان عن المتغير بالأمر )51٣‏ 
Variable Name (۲)‏ :اسم المتغير ( اسم فرید ) ۔ 
(؟) ©1552 10343 : نوع البيان الذى سيتم تخزينه فى المتغير ٠‏ 
(4) ©573111 1211121 : القيمة الابتدائية التى سيتم تخزينها فى المتغير المعلن عنه » 
- يقصد بالتخصيص تعيين قيمة لمتغير أو لثابت أو لخاصية أداة تحكم . 
# جملة التخصيص تتكون من طرقين بينهما علامة(” ) . 


# > # ا وا 
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الكم هوتو وتكنولوجيا المغلومات والإتضالات 


- الطرف الآيمن هو مكان ( القيمة ) » والطزف الأيسر هو اسم متغير أو اسم ثابت وتخزن فيه 
القيمة بالطرف الأيمن ( هومكان تخزين القيمة ) - 
- الطرف الأيمن يمكن أن يكون قيمة مجردة ٠‏ أو قيمة متغير » أو تعبير » أو قيمة من خاصية » 
والطرف الأيسر يكون إما تابت أو متغير . 
امصطلح ( N1٠‏ ) يعبر عن نافذة النموذج :”موجن2“ الحالية . 
معامل الربط ( & ) يستخدم للفصل بين كل متغير وآخر . 
الكلمة المحجوزة ( 011,5 ج71 ) تستخدم فى إنشاء سطر جديد . 
علامة الشرطة السفلى ( _ ) تستخدم لكتابة الكود على أكتر من سطر فى حالة إذا كان سطر 
الكود طويل وذلك لتنظيم وتسهيل قراءة الكود . 
>« الأمر ( 1920 ): يستخدم.فى كتابة ملاحظات داخل الكود يمكن الرجوع إليها. عند الحاجة » ولا 
> أولويات تتفي العمليات الحسابية فق Visual Basic. Net‏ 
)١‏ تتفيذ العمليات داخل الأقواس من الداخل إلى الخارج . 
۲) تتفيذ الاس . 
۳) تنفيذ عمليات الضرب أوالقسمة من اليسار إلى اليمين أيهما أولاً . 
)٤‏ تتفيذ عمليات الجمع أوالطرح من اليسار إلى اليمين أيهما أولة : 
“ا يوجد ثلاثة أنوع من الخطأ 
)١(‏ أخطاء لغوية «وبدهبدد2 “Syn a»‏ . 
هى أخطاء فى الصيغة العامة لأوامر اللغة » تحدث عتد كتاية الكود بشكل غير سليم . 
(۲) أخطاء منطقية E65”‏ وم1“ . 
تحدث بسبب صياغة تعبيرات حسابية أو منطقية بصورزة خطأ » تؤدى إلى نتائج خظأ . 
(۳( أخطاء عند التشغيل ١ “Runtime Errors”‏ 
:تحدث عند تخصيصن قيمة أصغر أو أكبر من المدى المسموح به لنوع البيان المستخدم , 
>« الفصل الثانى ع« 
3 جملة ۲16١‏ ...۴| الشرطية تستخدم فى حالة وجود اختيار واحد ( بديل واحد ) فقط . 
- إذا كان تاتج الشرط صواب ”1:16“ يتم تتفيذ الكود بعد كلمة (وعط٣)‏ . 
- إذا كان تاتج الشرط خطأ (1:2190) يخرج من جملة الشرطء ويتفذ الكود بعد [f‏ لع إن ورجد: 
- تنتهى جميع جمل۴] الشرطية ب8] 15020 . 
+ التعبير الشرطى له ناتج منطقى إما ( صواب e”‏ بوم“ أو خطأ ”مواو ۴“ ) . 
+ التعبير الشرطى يتكون من ثلاثة أجزاء . 1 
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الكمدجوتر وتكنولوجيا المغلومات والإتطالات 
٭ جملة ©5215 ... 11961... ۴ : تستخدم فى حالة وجود اختيارين ( بديلين للتفر ع ): 
# إذا كان ناتج التعبير الشرطى " ©1110" يتم تنفيذ مجموعة الأوامر بعد ع1" (1 ع000) » 
- وإذا كان ناتج التعبير الشرطى " ©1315" يتم تنفيذ مجموعة الأوامر بعد 13156 (2 ©0006) . 
# وتنتهى جملة ©2215 ... ©1715 . ۴ا الشرطية ب End If‏ . 
> معاملات الثقارقة : ( يساوى = ) ٠‏ ( لا يساوى < > ) ء ( أكبر من < ) ٠‏ ( أصغر من > ) » 
( أكبر من أو يساوى =< ) » ( أصغر من أو يشاوئ =>  )‏ 
+« الداثة *2100» : تستخدم لإيجاد باقى القسمة:. 
-لتشغيل البرنامج اضغط مفتاح ( 175 ) من لوحة المفاتيح . 
# لاحظ: المعاملات الحسابية هى ( - الطرح ) » ( + الجمع ) » ( * الضرب )ء ( / القسمة ) 
+« تستخدم دالة( ” “)715518802 : لعرض ر سالة للمستخدم تكتب الرسالة بين القوسين بين 
تستخدم دالة ( Focus(‏ : لتركيز مؤشر الفأرة فى أداة صندوق النص ”×0 “۲×٤8‏ . 
*# جملة ) (Select ... Case‏ : 
-تستخدم عندما يكون التفرع معتمداً عل كيمة ستعير واحد مع وجود شروط كثيرة . 
-جملة (ه25© .. 4نه1ء5) توفر العديد من الأكواد وتجعل الكود أكثر سهولة ووضوح . 
-يفضل استخدام جملة (»38© .. 4ع5616) عندما يكون التفرع لأكثر من شرطين . 
-جملة Select. .. Cage‏ : تنتهى ب End Select‏ 
-يمكن الاستغناء عن ٥و٤‏ ع038) طالما لا حاجة لها . 
# أداةه 1158 تتيح لك أن تنش وتعرض قائمة من العتاصر (الصفوف) يمكن لمستخدم البرنامج 
أن يختار منها عنصر أو أكثر . 
#يتم إضافة عناصر القائمة ”1154180“ فى نمط التصميم عن طريق الخاصية ومره)] . 
# ج10 تشير إلى رقم العنصر داخل الأداة . 
# ترتيب (ع30]) العناصر داخل الأداة 1186130 يبدأ من الرقم صفر والعنصر الثانى يأخذ 
الرقم ١‏ والعنصر الثالث يأخذ الرقم ۲ وهكذا.... إلخ . 
>« الحدث الافتراضى للذداة ×0 18ء1 هو عمع 2 :5616010106 (عند تحديد المستخدم 
عنصر آخر بدلا من المحدد الحالى يتغير بالتالى رقم العنصر حسب ترتيبه ) 
انقاصية >ء لم 1ل اء ه51 تستخدم لمعرفة رقم العنصر (الصف) الذى اختاره المستخدم 
>* الفصل الثالتٌ علد 
#جملة 113:6 ... ۴0۴ هى أحد جمل التكرار المحدود . 
#تستخدم لتكرار كود معين عدد محدد من المرات ( عدد:مرات تكرار مغروف مسبقاً ). 
# ينتهى التكرار عندما تكون قيمة متغين العذاد أكبر من قيمة نهاية الحلقة التكراريةة. 
## استخدام الأمر 5167 فى جملة التكرار 6×٤‏ .. ۴0۴ اختيارى ٠‏ وكذلك كتابة:اسم المتغير 
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الكمجوتر وتكنولوجيا المغلومات والإتضالات 


العداد بجوار الأمر أ×# اختيارى : 
# فى جملة التكرار ٠×‏ .. ۴0۲ فى حالة عدم استخدام م910 فإن القيمة الافتراضية لزيادة 
المتغير ,العداد موجب 1 - : 
١#‏ إذا كانت قيمة الزيادة موجب 1 » فإنه يمكن الاستغناء عن كتابة Step Add Value‏ 
# كلمة م56 الاختيارية (تستخدم للتحكم فى مقدار زيادة المتغير العداد) فى كل مرة من مرات 
الكرار . 
# بعد ط8 يكتب مقدار الزيادة ( عدد صحيح أو عدد عټری/ عدد الاو عدد موجب / 
متغير عددى ضحیح أو متغير عددى ,عشری ) . 
> يمكن جعل قيمة البداية أكبر من قيمة النهاية وتكون قيمة زيادة متغير العداد بالسالب 
# يمكن جعل قيمة البداية أو قيمة النهاية أرقاماً صحيحة أو عشرية أو متغيرات . 
# عند استخدام قيم رقمية عشرية يجب إعلان متغيرات من النوع العشرى (مثل ©1و510) 
© جملة التكرار (:1902 ... 11<الالا.20].) تستخدم لتكزار كو.د.معين عدد من المرات ( في 
حالة عدم معرفة:عدد مرات التكرار مسبقاً ) بناءً على شرط معين . , 
- ويمكن القول أن جملة التكرار ( م1008 ... عازاW۷‏ 0 ) تستخدم لتكرار كود معين عدد مرات 
غير معروف نهايته طالما أن شرط تتفيذ التكرار صواب "©7804" ٠‏ ويتوقف التكرار عندما 
يصبج شرط تنفيذ التكرار خطأ "©1319" . 
# يتم تنقيذ الكود الذى بين بداية. الحلقة التكرارية (©111/ا/ا ©0]) وتهايتها (م|©©.1) طالما أن 
التعبير الشرطى صحيح "ع ب 1" 
# يتوقف تنقيذ الكود عندما تصبح قيمة التعبير الشرطى خطأ "12156" » يتم الخروج من الحلقة 
التكرارية وتنفيذ الكود الذى يلى "م007 1" إن وجد . 
٭ عند إضافة نافذة نموذج “۴٥٣۳”‏ جديدة ينشأ تصنيف ”01295“ جديد باسم ۴٥۲۳٣۹‏ 
- فى نطاق هذا التصنيف نعلن عن : 
)١(‏ إجراءات الأحداث “Event Procedures”‏ . 
(۲) المتغيرات “Variables”‏ . 
(۳) الثوابت “CGonstanîs”‏ . 
(Procedure).sijçîl *‏ 
هو مجمو عة من الأوامر و التعليعات (©00©)) تحت اسم ما» يمكن. استدعاءه بهذا الاسم ليتم 
تتفي هذه الأو امر والتعليمات. 
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الكمييوتر وتكنولوجيا المغلومات والإنصالات 
الإعلان عن الإجراءات (Procedures)‏ 


- يتم الإعلان عن الإجراء اسك 'إذا كان لدينا مجموعة من الأوامر يتكرر استخدامها فى أكثر 
من موضع داخل التصنيف . 
- يتم الإعلان عن الإجراء مرة واخدة » ويستدعى أى عدذ من المرات . 
- يتم الإعلان عن الإجراء لعذم تكزار كتابة نفس الكود فى أكثر من موضع . 
- يمكن أستدعاء الإجراء بكتابة اسمه فى أى مكان تريد عندما تريد داخل نافذة الكود . 
أنواع الإجرادات فى لفة ( )7V8.N6e٤‏ 
)١(‏ إجراء فرعى ( Sub‏ ) لا يعود بقيمة . (013)1ة (0هلأءصلع ) تعود يقيمة . 
> أسباب الإغلان عن الإجراء 51 : 
- وجود كود (0006) معين سيتكرر کتابته فئ أكثتر من مكان داخل التصنيف (01355) . 
*٭ صيفة الإعلان عن الإجراء : 
( وسائط الإجراء ونرم)ءمروموط ) + اسم الإجراع 2 ناه 
الأوامر المطلوب تنفيذها »6006© 
نهاية الإجراء End Sub‏ 


۴ اندائة (0۸ آ٤٥‏ ۸ ن ۴) هى مجموعة من الأوامر تحت اسم معين » يفضتل أن يكون الامتم 
معبراً عن وظيفتها:. يتم تطبيقها على مدخلات أو وسائط (إ6امتروإه۴) وتعود بقيمة. 
# الدوال (5006110175]):* تشتدعى الدالة فتعود بقيمة قى ضوء القيم المخصصة لها . 
* المتغيرات (1/21131165) : يمكن تخصيصن قيمة لها أثناء الإعلان عنها فى نمط التصميم أو 
أثناء سير تنفيذ تعليمات البرنامج وكذلك يكن استخدام القيم المخزنة بها. 
** انثوايت (0115181/715©) : لابد من تخصص قيمة لها أثناء الإعلان عنها فقط وكذلك يمكن 
استخدام القيم المخزنة بها . 
># الفصل الرابع 3# 
۴ الإفترنت لها جانبين : 
- الجاتب الإيجابى للإثترفت : نتعلم - نتثقف - نتسلى - نتؤاصل وتتحاور : 
- الجانب السلبى للإنارفت : توجد مخاطر عديدة يمكن أن نتعرض لها منها : 
* يمكن أن نحصل على معلومات خطأ , ” انتهاك الخصوصية . ” انتحال الشخصية. 
* يمكن أن نقع فريسة لبعضن المعتدين عبر وسائط الاتضال الإلكترونية . 
* سرقة حسابك على مواقع التواصل الاجتماعى مثل موقع التواصل ع1[ن06ظوع22 أو البريد 
الإلكتروتى 812811 . تعرض جهازك لالفيروسات أو برامج التجسس أو برامج القراصنة . 
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التعدى الإلكترونى : هو سلوك عدوانى متعمد من شخض الآخر عبر وسائط الاتضال الإلكتزونية 
© صور النتعدى الإلكتروني : )١(‏ التحرش .2 (؟) المضايقة .2 (*)الإحراج. 


(4) التخويف . (9) التهديد . (5) الابتزاز . 
> الوسائط الإلكترونية للتعدى : 
- الوسائط الإلكترونية عبارة عن التقنيات التى يستخدمها المتعدى الإلكترونى وهى كتيرة منها 
)١(‏ اليريد الإلكتروفي 211د ع . (؟) المنتديات الإلكارونية For urs‏ . 


(") الرسائل الغورية 1155256 Instant‏ . (5) المدوفات الإلكترونية Blogger‏ . 
(5) المواقع التواصل الاجتماعى » مثل ع00[1طءع 12 . 

>3 من أشكال التعدى الإلكاروفى : 

)١(‏ التخفى الإلكتروفى : هو استخدام أسماء مستعارة تخفى الشخص المعتدى الإلكترونى بغرض 

عدم كشف أمره والإقلات من العقاب . 
(") المضايقات الإلكترونية : هى رسائل عدائية موجهة ضد شخص أو أكثر . 
)١(‏ الملاحقة الإلكترونية : هى شكل من أشكال المضايقات الإلكترونية لكن بشكل متكرر حيث 
يتتبع المعتدى شخص معين فى كافة الوسائط الإلكترونية ويلاحقه . 
( 4) السب أو القذف الإلكترونى : هو نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من 
خلال أحد وسائط الاتصال الإلكترونية . 

(©) التشهير الإلكتروفى : هو نشر معلومات عن شخص محدد أو آکثر بشكل مسيئ . 
() الاستشناء الإلكتروفى : عبارة عن تجاهل شخص أو أكثر من خلال وسائط إلكترونية . 
)١(‏ التهديد الإلكتروثى : هو إرسال رساتل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر . 
> كيف نمی نفسك من التعدى الإلكترونى ؛ 
“7 باتباع قواعد الاستخدام الآمن للإنترنت التالية : 

. لا تشارك أحداً بكلمة الس‎ )١( 

(۲) عدم نشر أى بيانات خاصة . 

(۳) إعداد كلمة مرور يصعب استنتاجها . 

. عدم حذف رساتل التعدى‎ )٤( 

(9) عدم مقابلة أحد تعرفت عليه من خلال الإنترنت . 

(1) عدم إرسال رسائل إلكترونية وأنت فى حالة عضب . 

(')إطلاع ولى الأمر بمن يضايق عند استخدام الإنترنت . 
(6) إنزال البرامج من الإنترتت يكون بإذن معلمك أو ولى أمرك . 
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If .. Then 
VEB.NET FOR .. NEXT DO WHILE... LOOP 
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انقائز 


)١( HN -‏ أختر الاجابة الصحيحة مما بين القوسين : 


E نوع البيان المخزن موقتاً فى ذاكرة الكمبيوتر يحدد‎ )١( 
) حيز تخزينى ومدى قيمة - اسم وحيز تخزينى - حيز تخزينى وقيمة‎ ( 
SPE الخطأ الذى يظهر آثناء كتابة كود بلغة ا6١.۷۷8 'يسمى‎ )۲( 
( Runtime error — Syntax error — Logic error ) 
( Trüe — False — equal J 7 ° 2.5 ناتج التعبير الشرطى "۸ <> ۸" هو‎ )۳( 
N عند الإعلان عن الثابت الرياضى (ط) نستخدم الكود ع‎ )٤( 


Dim pi As Single — Const pi As Single = 3.14 - ) 
( Dim pi As Single = 3.14 
nn لتخزين قيم عددية تحنوى على كسور يستخدم متغيرات من نوع‎ )5( 
( Decimal = Long - Integer ) 
(ب) أجب عن الأسئلة الآتية مستعيتا بالكودة‎ 
Private Sub Button1_Click (ByVal sender ....) 
Dim M , Sum As Integer 
For M,= 1 To 7 Step 2 
Sum = Sum + M 
Next 
Label3.Text = Sum 


RS: SERS يتم تنقيذ الكود عندما يقع الحدث ........-...:. ,على أذاةالتحكم‎ )١( 
E E (؟) الغرض من الكود هو العا ا‎ 

(۳) جملة التكزاز المستخدمة هى 

Rael اسم المتغير فى الحلقة التكرارية هو ...ء. وتم الإعلان عنه باستخدام الأمر‎ )٤( 
الكود الذئ تم تكزاره :هو ھ92 ی‎ )٥( 

(1) بعد تنفيذ الكود السابق فإن ما يعرض على الأداة أ×3.16ا256ا هو ES aa‏ 
(۷) يتوقف تنفيذ الحلقة التكرارية عندما تطل قيمة متغير الحلقة إلى sae Re.‏ قطي 


که الصف الثالث الإعدادى 


1 
الكمبيوتر وتكنولوجيا المعلومات والاتصالات 

1١ [EEE -‏ ) أكتب «نصطلح اختاسب اندال على كل من العيارات التالية : 

)١(‏ جملة تستخدم لتكرار كود معين عدد من المرات اعتمادا على نتيجة شرط معين وهى 
مفيدة فى حالة عدم معرفة عدد مرات التكرار . 

(۲) جزء من كود البرمجة يكون ناتجه إما صواب أو خطأ بناء على قيمة متغير أو ثابت أو 
خاصية أو بيان آخر بالبرنامج . 

(۳) تستخدم لاستقبال قيم من خارج الإجراء عند استدعاء الإجراء . 

(4) سلوك عدوانى متعمد من شخص لآخر عبر وسائط الاتصال الإلكترونية ٠‏ 

(5) عبارة عن أماكن محجوزة بالذاكرة 8۸١۷‏ وتخصص قيمة لها أثناء الإعلان عنها فقط. 

(5) جملة تفرع فعالة أكثر عندما يكون التفرع مينى على أساس قيمئة متغير واحد كما أنها 
تجعل الكود أكثر سهولة ووضوح . 

(ب) ضع علامة ( ”") أمام العيارة الصحيحة وعلامة (×) أمام العبارة الخطأء 


( ( من طرق الحماية من التعدى الإلكترونى عدم نشر أى بيانات خاصة على الإنترنت.‎ )١( 
( ) . نوع البيان 6زط0 يندرج تحت تصنيف البيانات الرقمية‎ )۲( 
( ) . 200 17 عند كتابة جملة ( ۲۸۵۸ .. ۴ا ) فى سطر واحد يجب إنھاؤہ ب‎ )۳( 
فإن القيمة بين القوسين يطلق عليها‎ ٠4×65 )0.05( عند استدعاء إجراء باسم‎ )٤( 


وسائط ) parameters‏ ( - ) 
)°( الحدث ged‏ ndexChaاectedاSe‏ هو الحدث الافتراضى للأداة ).Textbox‏ 


(۷) عند الإعلان عن إجراء يمكن استخدام أكثر من Params‏ . ) 

(۸) المتغيرات والثوابت لا نستطيع استخدامها إلا فى نطاق إعلانها . ) 
وإااسوال الثالث: | أكمل العيارات التالية : 

.... فی جملة ( ©2156 ... ۲۸8۳ ... 16 ) إذا تحقق التعبير الشرطى يتم تنفيذ ما بعد‎ )١( 
E عناصر القائمة ×ھ اھ ط٥٥ یتم ترتيبها فى 1706 بدأ من‎ )۲( 
rE EES الناتج النهائى للمعادلة 2 / ( 4 + 2 ) - 15 = ۷ هو‎ )۳( 
ما يكتب بعد كلمة .... يعتبر ملاحظات يمكن الرجوع إليها داخل الكود ولا يتم ترجمتها.‎ )4( 


فصل دراسى ثاتى 1 


( 
( 
(5) الغرض من استخدام الإجراءات » تكرار كود معين عدة مرات فى البرتامج. ( ) 
( 
( 


| اختيارات عامة ٠‏ الصف الثالث الإعدادى ) عاو الكمبيوتر وتكنولوجيا المعلومات والاتصالات | لتر 


ASE نستخدم الدالة ا اح تعس ون مح سن سفوا كاد‎ )١( 
. .تستخدم الكلمة المحجوزة يم ليذ © رقع تشاع شط جدید‎ )1( 

(۷) تستخدم الوسيلة ................. لإفراغ أداة ×150ءأا من كل العناصر : 

(۸) الخطأ فى نتيجة حساب أى معادلة حسابية يسمي خطأ EER a‏ 

)۹( .عم جيارة يعن تجاهل شخ إن أكتن من خلال و ساك الكتر وة د 

RAR من قواعد تسمية المتغيرات أو التوابت أن تبدأ ب ............... أو‎ )٠١( 
هى مجموعة من الأوامر والتعليمات التى يتم وضعها تحت اسم وعند تنفيذها‎ .... 00) 


تعود بقيمة . 


- 0 0 ( أ ) ضع علامة (") أمام العبارة الصحيحة وعلامة (×) أمام الخطأء 


( ) . من قواعد تسمية المتغيرات والتوابت أن يبدأ الاسم بحرف أو رقم‎ )١( 
يتم تنفيذ‎ ١2156 إذا كان ناتج التعبير الشرطى‎ ) ۴ ... hen ... 20,1! ( (؟) فى جملة‎ 
( ) . الجمل التى تلى 1۸68۸ مباشرة‎ 
E : وای 5 ) فى الفصل يون کن متف راض‎ )5 
فى جملة ٥ا۷۷ 00 عندما يكون ناتج التعبير الشرطى ©5915 يتم تنفيذ الجمل التى‎ )٤( 
e . 106 تلى‎ 
: (ب) آختر الإجابة الصحيحة من بين الأقواس‎ 
E a لتخزين البيانات الغير ا صحيحة نستخدم متغيرات من النوع‎ )١( 
( Date — String - Short — Single) 
. ء....... عبارة عن تجاهل شخص أو أكثر من خلال الوسائط الإلكترونية.‎ (0 
) التخفى الإلكترونى - الاستثناء الإلكترونى + الملاحقة الإلكترونية -.التشهير الإلكترونى‎ ( 
تستخدم فى عو امد ل واوا ا‎ )١/8)0181-1( (؟) الكلمة المحجوزة‎ 
) إضافة ملاحظات - إنشاء سطر .جديد - الربط بين المتغيرات - كل ما سبق‎ ( 
ناتج تتفيذ العملية الحسابية ( 3 + 52 4- 5 * 2 )هو معدو فيك‎ )٤( 


( E10 )ar (89) 7 مالالتم)ص‎ +) 82(9 
هن‎ 


| | فصل دراسى ثانى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات حلا الصف الثالث الإعدادى 
)°( .م تستخدم فى الطرف الأيمن من جملة التخصيص للحصول على ناتجها . 
( الإجراء اناه - الدوال 001105اناط - التصنيف - كل ما سبق ) 


N -‏ ( أ ) أكمل العيارات التالية : 


ERE الكود اللازم لتخصيص قيمة الأداة 161715011 للمتغير ( ۷ ) هو‎ )١( 

(۲) فى الجملة التالية : 3 م516 10 10 5 = × ۴۲ عدد مرات التكرار هى عا 
وقيمة × بعد انتهاء التكرار هى ع و 

(۳) الكود اللازم للإعلان عن الثابت (/1) من النوع (5121979) لتخزين القيمة "مصر" هو.. 

SETAE E aE SEE CAESARS e التعدى الإلكترونى هو‎ )4( 

(6) تستخدم الجملة الشرطية .......... فى حالة وجود..أكثر من بديلين ويكون التفرع معتمداً 


على أكثر من تعبير شرطى . 
( ب ) أكمل البرنامج التالى لطباعة الأعداد القردية من ( 1 ) إلى ( 5 ) باستخدام 
جملة Do While‏ : 
Dim X As Single = 1‏ 


سال الثالث: | ( أ ) أكتب المصطلاح العلمى الذال على كل من العبارات التالية ٠‏ 

22158 توع من أنواع البيانات لتخزين البيانات المنطقية ۵د٣۲ أو‎ )١( 

(۲) تستخدم كوسيلة استقبال قيم من خارج الإجراء غير معلومة مسبقاً وإنما تحدد عند 
استدعاء هذا الإجراء . 

(۳) مجموعة من الأوامر والتعليمات ( ©00© ) تحت اسم ما » عند استدعاء هذا الاسم يتم 
تتفيذ هذه الأوامر والتعليمات . 

)٤(‏ أماكن محجوزة بالذاكرة 8۸١۷‏ عند الإعلان عتها يتحدد لها اسم ونوع بيان وعادة ما 

تتغير قيمتها أثناء سير البرنامج . 


فصل دراسی ٹانی | 


الصف الثالث الإعدادى ١‏ < الكمبيوتر وتكنولوجيا المعلؤمات والاتصالات 


(ب) آقراً الكود التالى » ثم آجب : 


Dim A,B, C as Single 
As 3*20 1 BEZ IFS 
IF A<B Then 
A=A+5 : B=B*2-2 
Else 
BOC 2.2600 Step gij i قيمة ۸ = .يك ا عضه زبمضة أزاده تال مه‎ )١( 
1-م دم‎ E 
BBA د‎ 1 TC LIOR SUG a كر‎ hel ai HEE = 8 قيمة‎ )۲( 
RS SAS LS EA DE E a ST aE = © قيمة‎ )۳( 
End If 5 5 اعد‎ 
Msgbox(A) : Msgbox(B) : Msgbox(C) | ناتج التعبير الشرطى‎ )٤( 


حافتلة دمیاط < 3 = 
[السؤال الأول: | أكمل العيارات التالية يما هو متاسب : 


......٠ (02)‏ هو مجموعة من الأوامر والتعليمات تحت :اسم ما عند استدعاء هذا الاسم 


تنفذ هذه :الأوامر والتعليمات ٠‏ 


إلى 

(*) كل نوع بيان له حد أدنى وحد أقصى من القيم يطلق عليها E‏ يو 

(4) تستخدم جملة ع ]ار القكوارن! كود ,معن لدد تمن المرات .غير معزوف نهايقه مسقا ا 
)°( ....... عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر (2/1/1) عند الإعلان عنها يتحدد 


لها اسم ونوع ( ١۷٥8,‏ 0318 ,) وعادة ما تتغير قيمتها أثناء سير. البرنامج . 

- 3155000077 | ضح علامة (لا) أو علامة (×) أمام كل مما يلى : 

(١)#الإجراء‏ ( 6ا8 ) لا يعود بقيمة ولا يستخدم نهائياً فى جملة التخصيص . ( 
(۲) ناتج تنفيذ العملية 5 10٩۵‏ 25 يساوى 5 . ) 
(؟) جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزيتية ( 
(4) يستخدم الأمر ٥٥١5‏ فى الإعلان عن الثوايت . ) 
)٥(‏ الاستثناء الإلكترونى يعنى تتبع شخص ما فى كافة وسائل التواصل الإلكترونية.( 
#|السؤال الثالت: | أختر الكلمة التاسبة مما-يين الفوسين وضعها ماکان اكتاسه + 
)١(‏ المتغير ..... يأخذ القيم True‏ أو Boolean - Date - Double ( . False‏ ( 


س ص سير ص سس 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات ‏ 6د الصف الثالثالإعدادى اختبارات عامة. 


(7) جملة التفرع .... تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وشروط كثيرة 
Then (‏ ... ؟ا- If... Then ... Else - Select Case‏ ( 


(۳) المتغير من النوع ........... يشغل مساحة تخزينية 4 بايت . 
(Short - Integer — Byte — Single)‏ 
)<( ........ الإلكترونى عبارة عن نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ . 
( التشهير - السب - التهديد ) 
(©) فى حالة الأخطاء ......... فإن الكود يتفذ دون أن يعطى أى رسائل خطأ رغم أن القيمة 
غير صحيحة . ( الإملائية والنحوية - أثناء التشغيل - المنطقية ) 


: اۋال الرابع: | ( أ ) جب خن التالى بعد قراءة الكود‎ 
Private Sub Button1_Click 
Dim R As Integer 
For R = 20 To 10 Step -2 
MsgBox ) R ) 
Next 


)١(‏ يتم تنفيذ الكود عندما يتم الضغط ءا على أداة التحكم دادم و ا ا 
(۲) تم استخدام الأمر 01۳ للإعلان عن متغير من نوع عه ورج سم م عقا اموجه الما 
) 


E قيمة بداية الحلقة التكرارية ....... وقيمة النهاية ..٠......٠وقيمة الزيادة‎ )٣ 


n SAE يتوقف تنفيدٌ الحلقة التكرارية عندما تصل قيمة المتغير ( 8 ) إلى‎ ) 
. , (ب) أكمل الجدول مستعيتا بالكود التالى‎ 
Function Cost (ByVal Price As Integer, ByVal Quantity As Integer) As Single 
Code 
Return Product 
End Function 


لم المطلوب الإجابة 

اسم الدالة ده وك > مون EEE‏ 
” | نوع البيان الخاص بالقيمة الراجعة من الدالة ال ERG‏ 
۳ | الوسائط 373177614675 التى سوف تستخدم فى الكود برب e a AG e‏ 
> | القيمة الراجعة من الدالة a‏ ا 2 


قصل دراسى ثاتى | | ا 


الصف الثالث الإعدادى به الكمبيوتر وتكنولوجيا ا معلومات والاتصالات 


ااسۋال الأول: | أولاً: أجب عن الأسئلة التالية ٠‏ 
)١(‏ أذكر اثتين من التعدى الإلكترونى ؟ 
Î1 (1)‏ [ عرف الإجراء ( Procedure‏ ( . 
[ب] ما نوع البيان الذى يخزن فيه قيمة نوع الطالب ذكر أم أنثى ؟ 
خاتيا : آكتب المصطاح العلمى أمام كل من العيارات التالية : 
)00( ) جطلة تفرع تستخدم عندما يكون التفرع جا 1216 220 ار وا وري اف ا أكثيرة, 
(۲) يستخدم هذا الأمر فى الإعلان عن المتغيرات فى لغة 4علا.لا . 
(۳) هى الكلمة المحجوزة التى تستخدم فى إنشاء سطر جديد فى نافذة الكود ۔ 
)٤(‏ هی جملة تكرار تستخدم فى تكرار كود معين لعدد من المرات غير معروف نهايته مسبقاً 
وإنما 'بناء على شرط معين ٠‏ 
١١ ET -‏ ) اختر الإجابة الصحيحة نكل مما يلى من بين الأقواس : 
)١(‏ الناتج النهائى للمتغير × للمعادلة ( 4 * 2 + 3 = × ) هو ...6 ( ١١٤١د )٣٠١‏ 
)١(‏ الكود 3 م516 20 70 3 = ۴٥۲ M‏ يستخدم لعرض. الأعداد التى تقبل القسمة على: 
| للك ب إن سج ل 
(۳) الخطأ الذى يظهر آثناء كتالة الكود بلغة 8.0/84/ا يسمى 0 
Runtime Error - Logical Error — Syntax Error )‏ ( 


٠" إذا كانت قيمة الثابت --::--........اتوضع بين علامتى التنصيض‎ )٤( 
) منطقية - قت ا أو تاريخ - حرفية‎ ( 
: (ب) أجب عن الأسئلة التالية مستعينا بالكود التالى‎ 
Dim X As Single 
X = Me.TexytBox1.Text 4 
)زمر‎ >= 50 Then إذا كانت قيمة 76 = × فإن ناتج تنفيذ‎ )١( 
71508 ال ا ون حك بر‎ eee 1 الكود هو ا ا‎ 
Else إذا كانت قيمة 49 = × قإن ناتج تنقيذ‎ )۲( 
MsgBox("lر")‎ 95 
ا ا ا‎ iE erer هو‎ 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات + انلصف الثالث الأغدادى اختبارات عامة 


+ سوال الثالت: | أكمل مكان التقط مستعينا بالكود التالى‎ 
Function XXX (ByVal YYY As Integer, ByVal 222 As Integer) As Single 


Code 
Return RRR 
End Function 
Sk EEE اسم الدالة‎ )١( 
EES e E EE نوع البيان الخاص بالقيمة الراجعة من الدالة‎ )۲( 
الوسائط ( 3131061615 ) التى سوف تستخدم قتى الكود‎ )۳( 
EBES E اسم القيمّة الراجعة‎ )٤( 
E E ا۴ وينتهى ب‎ ٣60٩ الإعلان عن دالة يبدأ ب‎ )٥( 


- 5 ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام العبارة الخطأء: 
)١(‏ أشكال التعدى الإلكترونى تشمل التخفی الإلکترونی "۸۸07۸۷٣۸۷"‏ ۔ ) 
) الإعلان عن دالت تبدا ب (طبا5) بوينتهى ب ( 58 قمع ) + ) 
(*) الكلمة المججوزة ( ۷/81٤‏ ) تستخدم .فى إتشاء, سطر.جديد .+ ) 
)٤(‏ الخطأ فى نتيجة حساب أى معادلة يعتبر خطأ لغوى Syntax Error‏ . 
)٥(‏ جملة "0356 ... 561601" تستخدم عندما يكون التفرع معتمدا على قيمة متغير واحد 
وهناك شروط كثيرة . ) ( 
سۋال الثانى: | (10) أكمل الجمل التالية ؛ 
)١(‏ الناتج النهائى للمعادلة 2 / ( 4 + 2 ) 12 - ۷ هو ا 
(۲) التعبير الشرطى يتكون من GEZ‏ 
(۳) كتابة اسم متغير, العداد بجوار 6اء1! ”ش”””25 
(0ب ) أجب عن الأسئلة التالية مستعينا بالكود الآتى : 


کک لمر متسل سس 


If X< 50 Then 
Msgbox ("راسب")‎ 
End If 
aE EE كانت 40 = × افإن ناتج تتفيذ الكود هو‎ اذإ/)١(‎ 


.. إذااكانت 62 = × فإن ناتج تنفيذ الكود هو‎ )١( 
11 فصل دراسى ثاتى‎ 


الصف الثالث الإعدادى ‏ ج الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


: اجب عن ما باتى‎ REE 
. ) 255101721711 ( عرف جملة التخصيص‎ )1( 
0.5 لعرض الأعداد من 1.5 إلى‎ ۴٥۲ ... ۵×٤ ب ) أكتب برنامج باستخدام جملة‎ ( 
. بتناقص 0.05 كل مرة فى صندوق الرسالة‎ 
: 10ت | (1) مستخدما الكود التا لی أكمل الجدول التائى‎ 3110 - 


Sub ShowOddOrEven ( ByVal start As Integer ( 
Dim K As Integer 
For K = start To 20 Step 2 


MsgBox ) K )‏ 
Next‏ 
End Sub‏ 
م المطلوب الاجابة 
١‏ | اسم الإجراء 
۲ |الحلقة التكرارية تبدأ من القيمة 
٣‏ |قيمة الزيادة فى الحلقة التكرارية ا en‏ للد تداك SESE‏ 


( ب ) أكتب جملة التكرار التى تستخدم لتكرار كود معين غير معروف نهايته مسبقاً وإنما 
بناءاً على شرط معين. . 
(ج) أعرض قيمة المتغير ( |1018 ) فى الأداة ( 3ا©طها ) . 


8ااسؤال الأول: أ ضع علامة (”") أمام العبارة الصحيحة وعلامة (×) أمام الخطأء 
)١(‏ القيمة الراجعة للدالة ( × ) هى ( ا819 ) كما هو موضح فى إعلانها :  (‏ ) 
Function X( ByVal Y As Integer , ByVal Z As Integer ) As Single‏ 
(۲) القيمة النهائية للمتغير (×) بعد تنفيذ المعادلة التالية "3+2*4=×" هى (11) ( ) 
(۳) جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية.( ( 
)٤(‏ الملاحقة القانونية يقصد بها إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو 
أكش . ) ) 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات ‏ د الصف الثالث الإعدادى 


a . يستخدم أمر ( 0154© ) فى الإعلان عن المتغيرات‎ )١( 
) . ) 200 16 ( يمكن كتابة جملة ( ۱۴ ) فى سطر واحد بدون‎ )٦( 
سوال انثانی: |[ أ ) اختر الإجابة المناسبة لإكمال العبارات التالية ؛‎ 


EO ET قيمة أسعار الأدوات المكتبية يمكن تصنيفها كبيانات‎ )١( 

[ أ ] رقمية صحيحة [ب] رقمية غير صحيحة [ج] متنوعة 

.. رسالة الخطأ التى تظهر عند كتاية الكود "81/16 85 × 6170605101" يمكن تصنيفها خطأ‎ )١( 
Syntax Error [ Î ] 


Runtime Error [>] Logical Error إب]‎ 


..... تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وهناك عدة شروط 


ة شرو 
Select .. Case [ İl‏ إب] If .. Then Error‏ ]ج[ For .. Next‏ 


)٤(‏ يعرف ....... بأنه مجموعة من الأوامر والتعليمات تحت اسم ما » يمكن استدعائه بهذا 

الاسم ليتم تنفيذ هذه الأوامر والتعليمات . 

[ أ ] الإجراء [إب] الوسيط [ج] المتغير 

5*8 الإعلان عن متغير عدد أفراد الأسرة لا|أم12_© بقيمة ابتدائية (2) هو‎ )١( 
Dam C_Family As Single= 2 [ Î] 


Const C_Family As Integer= 2 []‏ 
Dim C_Family As Integer= 2 [>]‏ 
(5) اشترك أحد الأشخاص فى أحد مواقع التواصل الاجتماعى . كلما أرسل أحد الأعضاء أو 
حاول إجراء محادثة فورية لاحظ عدم الرد عليه ٠.‏ فيعتبر ذلك 
[ أ ] الإستثناء الإلكترونى : 
[ب] التهديد الإلكتروتى 
[ج] التخفى الإلكترونى 


(ب) أكمل الجدول التالى بكتاية جمل التخصيص : 


أسماء المتغيرات أداة التحكم الخاصية جملة التخصيص 
Text TextBox1 U_Name‏ )01( ا 
EEA (") Checked RadioButton 1 U_Gender‏ 


ed 


6 الصف الثالت الاعدادى × الكمبيوتر وتكتونوجيا المعلومات والاتصالات‎ EI 
: ل (1) أجب عن الأسئلة التالية مستعينا بالكود الآتى‎ - 
Dim أ ر لاا‎ , Sum As Integer 
N = TextBox1.Text 
j1 
Do While i <= N 
Sum = Sum + i 


i=i+2 
Loop 
Label1.Text = Sum 
e n Ea Ss E جملة التكرار المستخدمة فى الكود هى‎ )١( 
سيتم تنفيذ الحلقة التكرارية طالما أن التعبير الشرطى ھاو چ او و مصعم مع جيه‎ )١( 
الغرض من الكود ( 2 + - | ) هو مم ايد فتاه‎ )۳( 


(ب) أجب عن الأسئلة التالية مستحيتا بالكود الآتى + 


If X>= 50 Then 
Msgbox ("ججli")‎ 


End If 

E يتم إظهار صندوق الرسالة وعليها النص "ناجح" عندما‎ )١( 
يه 8 1678 قل‎ N aê إذا كانت قيمة ( 40 = × ) فإن ناتج تتفيذ الكود هو‎ )١( 
2071 [112 إذا كانت قيمة ( 62 = × ) فإن ناتج تنفيذ الكود هو‎ )۳( 


R5 -‏ ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام العبارة الخطأء 
)١(‏ ( 8۴ع ) من أنواع البيانات الرقمية ۔ ) ( 
)١(‏ جملة " ©35© ... 581901 " أحد طرق التعبير عن التفرع برمجياً . 0 
apg‏ _ ) عند كتابة سطر الكود الطويل على أكثر من سطر . ( ( 
)٤(‏ تستخدم ( ٥5ا٤‏ ) فى جملة ( ۴| ) لتنفيذ الكود التالى لها إذا كانت نتيجة الشرط 

( ) 5 Teer? 


]1 قصل دراسى ثانی 


5 


(ه) عند الإعلان عن إجراء يمكن استخدام أكثر من ( 2928061617 ) . ) ( 
() القيمة النهائية للمتغير × بعد تنفيذ المعادلة التالية (1+372=×) هى 16 . ( ) 
السۋال التاتى: | أكتب كل كلمة من الكلمات ا#آتية فى المكان الكتاسب + 

For - Rem = Procedure — Mod — & = vbCrLf )‏ ( 
)١(‏ أمر يستخدم فى كتابة ملاحظات داخل الكود هو ع EEE PDE‏ 00 
(؟) لربط سلسلتين حرفيتين ببعضهما تستخدم ل EEE AS ER E ARS‏ 
(۳) دالة تعود يباقى قسمة المتغير هى وق سي انه GS‏ مس لمشت وده م جنوي سول e a‏ 


)٤(‏ لتكران كود محدد لعدد محدد من المرات تستخدم جملة لوق مم سا با ولك لم له 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات 2 عل الصف الثالث الإعدادى 


(ه) مجموعة من الأوامر والتعليمات تحت اسم ما يكن استدعائها بهذا الاسم تسمى Hês‏ 


N -‏ يستخدم الكود التالى لعرض الأعداد الشردية من ١‏ إلى ٠١‏ 
المطلوب : تصويب الأخطاء الأريعة التى تحتها خط 

Din i As Integer (3 — 

i= 1 
Do While i= 1065 2 — 
ListBox1.ltem.Add ( i ) 

>R 9 عد‎ @ 
Next ERE RTT 


E 
0 محش سو ا‎ 
. سيد والتعليمات تحت: اسم ما يمكن استدعاوها بهذا الاسم‎ 
٠ سلوك .عدوانى متعمد من شخص لاآخر. عبر وسائط الاتصنال. الإلكترونية‎ )۲( 

(۳) جملة تستخدم عندما نرغب فى تكرار كود معين عدد محدد من المرات ٠‏ 


ات قصل دراسى ثاتى 1 


محافظة الجيرة 


الصف الثالث الإعدادى عه الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


(ب) أعد كتاية الجمل التالية بعد تصويت ما تحته خطاء 
)١(‏ المتغيرات هى أماكن محجوزة فى ذاكرة الكمييوتر تأخذ قيمة ثابتة لا تتغير أثناء سير البرنامج 
)١(‏ تستخدم جطلة (77106137-.: 15 ) عندما يكون التفزغ معتمداً على قيمة متغير واحد وهناك 
شروط كثيرة . 
EE‏ ضع علامة (”) أو علامة (*) أمام كل مما يلى : 
)١(‏ فى لغة ۷8.۸6 يتم تشغيل البرنامج بضغط مفتاح ۴8 من لوخة المفاتيح . ( 
(۲) الأخطاء اللغوية هى أخطاء فى الصيغة العامة لأوامر اللغة . ) 
(۳) كتابة اسم متغير العداد بجوار ( 8164 ) إجبازية . ) 
(4) يستخدم الأمر ۸۵۳ فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود -. ( 
)١(‏ تتميز لغة ۷8.۸6٤‏ بالتعامل مع أنواع مختلفة من البيانات . ) 
)٦(‏ يمكن كتابة جملة ( ۱۴ ) فی سطر واحد بذون ( ۴ا 5260 ) . ) 
|السؤال الثالت: | أجب عن الأسئلة مستعيتا بالكود التالى : 


اسل ص سيل ص مل ا 


Dim i As Integer 
For i = 1 To 10 Step 2 


MsgBox ( i )‏ 
Next‏ 
)١(‏ الغرض من الكود السايق هو ray ey gee Bem hem, A n‏ 
)١(‏ اسم المتغير المستخدم فى الحلقة التكرارية هو 
(۳) قيمة بداية الحلقة التكرارية Rhea EE‏ 
)٤(‏ المتغير المستخدم من التوع TESTES ET RRS‏ 212121111111 


السؤال الرابع: | أختر الاجاية الضحيحة مما بين القوسين + 
)١(‏ الناتج النهاتى للمعادلة 2 / 4 + 2 - 12 = ۷ هو ... (12 = 7 = 8) 
(۲) من علامات المقارنة المستخدمة فى التعبير الشرطى CFG ce een‏ 
(۳) .... تستدعى فتعود بقيمة فى ضوء القيح المخصضنة لها .(التوابت - الدوال - المتغيرات) 
(4) قيمة أسماء المواد الدراسية يمكن تضنيفها كبيانات -....... ( متتوعة - رقمية - حرفية ) 
)°( ...0.20.0 . فار عن فشر , مكلوماتت عن شخص محدد أو أكثر يشكل مسيية : 

( التهديد الإلكتروتى - التشهير الإلكتروتى - الاستثناء الإلكترونى ) 


الصف الثالث الإعدادى 


ا | ! الكمبيوتس وتكنولوجيا امعلومات'والاتصالات < _اختبارات عامة | 


!1111177 | ضع علامة (”") أمام العيارة الصحيحة وعلامة (*) أمام العبارة الخطأء 
)١(‏ القيمة النهائية للمتغير ١‏ بعد تتفيذ المعادلة الآتية: 3+2*4*1-لا هى 20 .( ( 


(۲) يمكن كتابة جملة ( ۱۴ ) فى سطر واخد بدون (16 200 ٠)‏ ات 
(۳) جملة التخصيص عبارة عن طرفين بينهما علامة ( + ).. ) ( 
To 10 Step 2 (<)‏ 100 = نا For‏ . 000 
(5) يستخدم المبرمج الآمر 8۸۵۳ فى كتاية مالاحظات يمكن الرجوع إليها داخل الكود ولايتم 

) ترجمتها .. .:: (غنس‎ 
( ) . Do While i <=N (1) 


ااسؤال الثانى: | أعد كتاية الأكواد الآتيّة بعد تصحيح الخطا الموجود بكل كود؛ 
Dim: R is integer‏ )1( 
Mo.TextBox1.Textl = " "‏ )2( 
Const C_Name As String = # Egypt #‏ )3( 
(" كمبيوتر " ) ×80 Mg‏ (4) 
LestBox1.ltems.add( i )‏ )5( 
السؤال الثالت: | أكتب المصطلح العلمى لكل جملة مما يأتى : 
(1) جملة تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وهناك شروط كتيرة - 
(؟) مجموعة من الأوامر والتعليمات تحت اسم ما يمكن استدعاءه بهذا الاسم ليتم تنفيذ هذه 
الأوامر والتعليمات . 
(۳) جملة تكرار كود معين لعدد من المرات غير معروف نهايته مسيقاً وإنما بناء على شرط معين 
(4) سلوك عدواتى متعمد من شخص لآخر عبر وسائط الاتصال: الإلكترونية ٠‏ 
السؤال الرابع: | أختر الإجابة الصحيحة من بين الأقواس؛ 


)0 ..-------م.-:.. عبارة عن التقنيات التى + يستخدمها المعتدى الإلكترونى . 
( التحرش - التشهير الإلكترونى - الوسائط الإلكترونية ) 
)م( ..... هی أحد جمل التكرار المحدد » حيث تستخدم عندما نرغب فی تكرار كود معين 
عدد معين من المرات . ( Select...Case - Do Wile — For... Nex‏ ( 


: قصل دراسى ثانى 1 


الصف الثالث الإعدادى عا 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


(۳) الخطأ الموجود فى الصيغة: 510918 85 × 0251© هو خطأ ESAS‏ 


( منطقى - لغوى - أثناء التشغيل ) 


)٤(‏ .... تستدعى فتعود بقيمة فى ضوء القيم المخصصة لها (المتغيرات - الدوال - الثوابت) 
)5( ...0 تستخدم فى إنشاء سطر جديد . ( 20150 - (vbCrLf - Sub‏ 


a1 


- 0 ضع علامة (۷) أو علامة (×) آمام كل مما يلى : 


) . ٩ الأمر ("3" 8 "×" & "3') 1/5090 يعرض صندوق رسالة به‎ )١( 
( هو؟‎ (If .. Then .. Else) (؟) عدد اختيارات التفرع الممكنة مع استخدام جملة‎ 
) . False المتغير من النوع 8001831 يأخذ القيمة eں٣۲ أو‎ )۳ 
) . الأخطاء اللغوية تحدث عند كتابة الكود بصورة غير سليمة‎ )2( 
) . من قواعد تسمية المتغيرات والتوابت أن يبدأ اسم المتغير. بحرف أو رقم‎ )5( 
) : يجب التخلص من الرسائل الإلكترونية المرسلة من المتعدى إلكترونياً‎ )5( 
) . الدوال 64105نا] لا يجوز استخدامها فى أى جملة تخصيص‎ )۷( 
( . 8 جملة 4 =< 15 ©0035 ناتجها ©2215 فى حالة قيمة المتغير تساوى‎ )۸( 
) . الخاصية 6775| تشير للعتصر المحدد بالأداة ×0 58نا‎ )9( 
( . لا يعتبر كود ويهمل عند تنفيذ البرنامج‎ 8٤۷ كل ما يكتب بعد كلمة‎ )٠١( 


کر ص مسي .مسن ر ر ص لر لسر سمل 


«انسؤال الثانى: | أجب عن التالى بعد قراءة الكود ؛ 


-١‏ تم الإعلان عن إجراء تحت اسم ر 
؟- تم الإعلان عن ۴۵۲4۳٣٥٤6١‏ تحت اسم rH‏ 
*- تم الإعلان عن المتغير × ياستخدام كلمة .... 


4 - جملة التكرار المستخدمة هى د وقمة 
نهاية العدد ......... وقيمة الزيادة NE‏ 


1 فصل دراسی ثانی 


Sub Sh (Byval Start as integer) 
Dim X as integer 
Label1.Text = " " 

For X = Start To 10 Step 2 

Label1.Text= Label1.Text & X 
Next 

End Sub 


x 


1 

الكمبيوتر وتكتولوجيا المعلومات والاتصالات الصف الثالث الإعدادى اختبارات عامة | 
١ ( EET‏ ) اختر الإجابة الصحيحة نكل مما يلى من بين القوسين : 
)١(‏ يمكن كتابة جملة ۴| فى:سطر واحد ولا يتم وضع ......) End IF — Then‏ ع (IF‏ 
(۲) ( التشهير - التهديد - الاستثناء ) الإلكترونى هو نشر مغلومات خاصة بشكل مسيئ. 
(*) ناتج ما بين ۴| و hen‏ لبد أن يكون (False - false / True - True ) EN‏ 
C6 - Const Me ( )4(‏ ) تابت حرفى يستخدم لإضافة رمز مفتاح الإدخال . 
(5) تستخدم علامتى ( " " + © © - # # ) فى حالة إذا ما,أردنا كتابة تاريخ ٠‏ 


(ب) رتب الأكواد التالية لإظهار الأعداد الصحيحة من صفر إلى 4 فى صتدوق رسالة: 
Loop‏ ) ( 

( ( Dim N As Integer 

( وها(‎ While N <= 4 

( ) MsgBox (N ) 

JN=N +1 


E -‏ أختر الاجاية الصحيحة لكل ما يلى : 
)١(‏ عند الإعلان.عن تابت عجلة الجاذبية الأرضية نستخدم الكود E HE‏ 
Dim g As Single [ Î ]‏ [ب] 9.81 = As Single‏ و Const‏ 
]ج[ 9.81 = Dim g As Single‏ 
)"( الكلمة المحجوزة ( ۷00۲-۴ ) تستخدم فى SD E‏ ا 
[ أ ] إنشاء سطر جديد [ب] مسح محتويات صندوق النضن ' ٠‏ [ج]"الربط بين التصوصض 
(۲) اتجاهل شخص أو أكثر.من ,خلال وسائط إلكترونية يسمى aE Ree‏ 


[ أ ]:التشهير.الإلكترونى. [ب] الاستتتاء الإلكترونى [ج] التهديد الإلكترونى 
)٤(‏ يستخدم المبرمج الأمر. :......- فى كتابة مللاحطات يمكن المجرع ليها ذاخل الكوف ولا 
يتم ترجمتها . Me [Î]‏ ]ب[ Dim‏ ]ج[ Rem‏ 


(5) الناتج النهائى للمعادلة : (2 * 4 )+ 3٨2‏ هو... [1] ١17‏ [ب]"؟ , لجار ٠٤‏ 
الال الثانى: ع (۷) أمام العيارة.الصحيحة وعلامة (*) أمام العبارة الخطأً: 
)١(‏ جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية.( ( 
(؟) الإجراء عبارة عن مجموعة أوامر وتعليمات يتم تكرارها عدد محدد من المرات (١‏ ..) 
زر سس تسسممسسد سسسسجه ج77 س7سسسد جه + سسسسسه ممجه ووس 


قل درائ كاتق! 1 


| اختبارات عامة ‏ الضف الثالث الإعدادئ 22 الكمبيوتر وتكنولوجيا المعنومات والاتصالات | لتر 


(۳) الإعلان عن دالة ييدأ ب ( طناS‏ ) وينتهئ ب( طداة E٥۹۵‏ ) :+ ) 

( ) . الخطاً فى تتيجة حساب المعادلة يعتبر خطأ منطقى‎ )٤( 

(2) فى الحلقة التكرارية ٥×(‏ ۴۵۲.۰۰۸ ) معدل الزيادة يجب أن يكون سالباً إذا كانت 
قيمة البداية أكبر من قيمة النهاية . ) ( 


- ازال الثالت: أجب عماءياتئ» 


( أ ) أكمل الكود التائى ياختيار الكلمة المتاسبة مما بين القوسين : 


( MsgBox 7 End,,,-, Stop - X>=50) 
(LD RPE TT Then 
(PEL SSS E E EES) 
2 وي‎ if 


(ب) كيف تحمى نفسك من التعدى الإلكترونى ؟ ( آذكر اثتين فقط ),۔ 
E -‏ صن من تحمود ١(‏ ) يما يتاسبه من العمود (ب) : 


الحمود (1) العمود (ب) 
الجملة الشرطية اح ا : 7 
| "وعرع ومح E E fF‏ جود ايوم 
ا الحلقة التكرارية ‏ | a il‏ تمس O O CEG‏ 
Eo RE ۲‏ ب) | إذا كان لذينا كود سينتج عنه قيمة نحتاجها 


۳۴ جملة "00256 5619861" .| ج):|:تستخدم فى ,حالةروجود الختیارین فقط 
15 +تستخدخ الدالة ہرoناعہں‏ ۴ اد ( تستخدم فى خالة عدم :معزقة اعدد مرات«التكرار 
° جملة Do .. While‏ ه) | تستخدم لتكرار كود معين رعدد محدد من المرات 


: 112 )صح عدمه (” او غلامة () أمام کل مما یلی : 


( ) ٠ يستخدح:الأمق: 0054© للإعللان عن المتغيرات‎ )١( 
) 5 (>. (؟) التعدى الإلكترونى هو سلوك عدوانى متعمد باستخدام” الوساكظ الإلكتزونية‎ 
( ) . يشتخدم امعامل الربط " # " لربط سلسلتين حرقيتين. ببعضنهما‎ )۳( 
جملة ,©0238 561601 تستخدم عندما یکون التفرع امعتمدا غلئ متغيزا واحد اوشروط‎ )٤( 
E . كثيرة‎ 


1 أ قصل دراسى ثانى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات علا الصفاالثالث الإعدادى 
(ب) أعد كتابة الجمل اكتالية بعد تصويب الخطأ : 

. الثوابت هى أماكن محجوزة فى ذاكرة الكمبيوتر تأخذ قيمة تتغير أثناء تشغيل البرنامج‎ )١( 

(۲) القيمة النهائية للمتغير ١‏ بعد تنفيذ المعادلة 2 + 4 / 12 - 16 - ۷هو 3 . 

C٤۷ )۳(‏ 55 يعتبر اسم متغير صحيح . 

. الخطأ فى نتيجة حساب مساحة المستطيل فى برنامج يعتبر خطأ نوعه إملائى ونحوى‎ )٤( 

(©) يصنف قيمة اسم الطالب ضمن البيانات الرقمية . 

١١ [EEE -‏ ) أكتب تصصح العلمی : 

. جملة تستخدم لتكرار كود معين عدد من المرات غير معروف نهايته مسبقاً‎ )١( 

(۲) مجموعة من الأوامر والتعليمات باسم معين تعود بقيمة راجعة . 

(۳) معامل يستخدم فى التعبير الشرطی ويعنى ( لا يساوى ) . 
(ب) أكتب الكود اللازم : 

. For ... Next باستخدام‎ ٠١ : ” عرض الأعداد الزوجية من‎ )١( 

(۲) الإعلان عن متغير المرتب /ل51/37 . 

(۳) الإعلان عن التابت الرياضى أ۴ وقيمته 3.14 . 

اۋال الثالث: | (1)أذكر السيب : 


 "ا/ط©‎ 115 " استخدام الكلمة المحجوزة‎ )١( 


؟) أحياناً ة 1 5 9 > الزيادة بالسالب . 
)١(‏ أحياناً فى جملة Next‏ ۴۴ يكتب معدل الزيادة ب 5 hêê‏ لسعو 
(ب) أجب مستعيتا بالأكواد المقايلة + ("ناجح") Msgbox‏ 
البرنامج الأول : Else‏ 
NE‏ ("راسب") ×مطMsg‏ 
)١(‏ يتم إظهار صندوق رسالة عليه كلمة " ناجح " عندما EF ` | san‏ 
قف أعد كتابة الكود الخاص ب اأ »1 ©8190 ليظهر على سطر واحد. 
Dim N, I As Integer 8 5‏ 
البرنامج الثانى : N = Textbox1 .text‏ 
Lixtbox1.items.Clear 5 1‏ 
)١(‏ اسم متغير ز[ز ز[ [ ز ز مات وقوه TÛ | es‏ ههه 
) القيمة الابتدائية للمتغير ( ¡ ااا ا ل ينانا 
) ( 3 لابتدائية 7 ) | ( Lixtbox1.items.Add(i)‏ 
(۳) يتم تنفيذ الحلقة التكرارية طالما أن الشرط موي ا ا 120-51505200 15 
Loop‏ 


| 0 ا 00 


قصل دراسى ثانى 1 


الصف الثالث الإعدادى ع 


e‏ 51 محافظة الاسماعيلية 


ؤال الأول: | ضع علامة (لا) أو علامة (×) أمام كل مما يلى : 


( ) . صورة الطالب يمكن تصنيفها ضمن البيانات الحرفية‎ )١( 
( (. يطلق عليه خطأ أثناء التشغيل‎ ۷.١٠ الخطأ الذى يظهر أتناء تنفيذ برنامج‎ )۲( 
( ( 24 القيمة النهائية للمتغير × بعد تتفيذ المعادلة التالية 2*3 - 10=× هى‎ )۳( 
) ( . التخفى الإلكتروتى يعتبر صورة من صور التعدى الإلكتروتى‎ )4( 
فى جملة ( ©2156 ... 1161 ... 11 ) ينفذ الکود۔ الذی يلى ©15] عندما یکون ناتج‎ )٥( 
( ) . التعبير الشرطى صحيح‎ 
عبارة عن مجموعة من الأوامر والتعليمات تحت اسم معين‎ ) Procedure ( الإجراء‎ )5( 
( ) . وعند استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعليمات‎ 
ق اۋال الثانى: | أختر الاجاية الصحيحة من بين الأقواس:‎ 
agra جملة الإعلان عن متغير رقمى غير صحيح اسمه ۷ هى‎ )١( 
( Dim Y = Decimal - Y As Decimal - Dim Y As Decimal ( 
( vbCrLf - rem - Me) . هو ثابت حرفى يستخدم لإضافة سطر جديد‎ ..........٠ (") 
+ له ةدوح يقصيق بها إرساك رماتل الكترونية تحمل 'تهدية ووعية لختخص أو أكثل‎ 
) التهديد الإلكترونى - الاستثناء الإلكترونى - التشهير الإلكترونى‎ ( 
. تستخدم ......م. لاستقبال قيم من خارج الإجراء عند استدعاء الإجراء‎ )٤( 


Parameters - Values - Variables )‏ ( 
(©) عند معرقة عدد مرات التكرار مسبقاً يفضل استخدام الحلقة التكرارية . 
Do While .. Loop - For ... Next - If... End If)‏ ) 
| السؤال الثالث: | أجب عن الأسئلة مستحينا بالكود التالى : 
)0( لد تنفيذ الكود إذا وقع الد ہہ کک أداة التحكم ... Private sub Button 2_click‏ 


Dim X As Single 
X = Me.Textbox1.text ... نوع المتغير × فى الكود هو‎ (2 


If X >= 50 Then 


عنه باستخدام الأمر esses‏ | *("تلجح") Msgbox‏ 
End If 8 1‏ 
(؟) 1۵ قى الكود تشير إلى ت | EMS j‏ 
)٤(‏ إذا تم إدخال القيمة 50 فى صندوق النص يكون ناتج تنفيذ الكود هو لعي ورم مك 


I‏ قصل دراسى ثائى 


| الكمبيوثر وتكنولوجيا المعلومات والاتصالات 2 6 الصف الثالث الإعدادى _اختبارات عامة‎ ECD 
٠ أكمد مستعينا یاعود «نتابى‎ 19191019 - 
Public Class Form1 


Function Add (Byval number1 As Integer, Byval number2 As 
Integer) As Integer 


Dim SUM عم‎ Integer ل‎ E ٠... اسم الدالة‎ )١( 
Sum = number1 + number2 
RSE SUAS rE ال ع دل‎ RE SE وسائط الدالة‎ )۲( 
ERQ ل‎ sC SL CE القيمة الراجعة‎ )١( 
End Class 


#انسؤال الأول: | ضع علامة (۷) آو علامة (×) أمام کل مما یلی: 
)١(‏ يقصد بالمتغيرات فى لغة ۷8.۸6 مخازن بذاكرة الكمبيوتر لها اسم ونوع - ( ( 
(۲) يجب أن تضع كلمة مرور سهلة للبريد الإلكتروتى الخاص بك . ) ( 
(۳) جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية.( ( 
)٤(‏ الإعلان عن دالة يبدأ ب ( ۴U C07‏ ( وينتهى ب )  . (End Function‏ ( ( 
(-) جملة.(م008! ... عااW۴‏ 00) مفيدة فى حالة عدم معرفة عدد مرات التكرار بشكل 
قاطع . (A‏ 
(5) الإجراء (©220060107) عبارة عن مجموعة من الأوامروالتعليمات ويتم استدعائه تحت 
ا Ee)‏ 
EEE -‏ أختر الإجابة المتاسبة لإکمال كل عبارة مما يلك : 
)١(‏ الصيغة الصحيحة للإعلان عن متغير الاسم ۴_۸4۳۴ هى ا 
(Dim F_Name As Integer - Dim F_Name As String ~ Dim F_Name As Decimal)‏ 
(۲) الخطأ الذى يظهر أثناء كتابة كود بلغة ۷8.۸6 يسمى Oe se‏ 
Syntax Error - Logical Error — Runtime Error )‏ ( 
(۳) الناتج النهاتى للمتغير ل للمعادلة ( 2 + 4 /12- 16 = Y۷‏ ) هو: (11 - 15- 3) 
(4) قيمة مرتب الموظف يمكن تصنيفها ضمن البيانات 
( الرقمية الصحيحة - الحرفية - الرقمية الغير صحيحة ) 


قصل دراسى انی ا | 


الصف الثالث الإعدادى الكمبيوتر وتكنولوجيا المعلومات والاتصالات 6 
(©) يستخدم أمر .............. للإعلان عن الثوابت . ( (Dim - Const - Rem‏ 


(1) من أشكال التعدى الإلكترونى: ( المضايقة والابتزاز - التهديد والتخويف - كل ما سبق ) 


N -‏ أجب عن الأسئلة مستعيتا بالشاشة التالية : 


الشاشة الكود 
Private Sub Button1_Click dl fom 2 ke‏ 
Dim X As Single 31‏ 
ا أدخل الدرحة [ غ2 1.1»ه856]كزه [.ع1/اا = X‏ 
If X >= 50 Then |‏ 
E)‏ ("ناجح") MsgBox‏ 
End If i SEE‏ 
3 سے سا End Sub‏ 
)١(‏ يتم إظهار صندوق الرسالة وعليه النص ( ناجح 
)١(‏ يتم تنفيذ الكود إذا وقع الحدث .. 
Me ) (r)‏ 2 فى آلکود اتشير إلى 


سال الرابع: | صوب الأخطاء الأريعة الموجودة يالكود حتى تحصل على طباعة 
جدول الضرب للعدد ( ٩‏ ) : 
Dim n, product As String‏ 
Dim Str As String‏ 
Me.TextBox1.Text = " "‏ 
For n = 1 To 10 Step -1‏ 
Str = 9&"x"&n &" ="‏ 
product = 9 + n‏ 
Me.TextBox1.Text = Me.TextBox1.Text & Str & product & vbCrLf‏ 
Next Str‏ 
End Sub‏ 


11 
٣ [‏ تقاتر | الكمبيوتر وتكنولوجيا المعلومات والاتصالات د الصف الثالث الإعدادى _اختبارات عامة | 


اۋال الأول: | ضع علامة (”) أو علامة (×) أمام كل مما يلى : 
)١(‏ جميع أنواع البيانات التى تم حفظها فى الذاكرة تشغل نفس المساحة التخزينية. ( ( 


(۲) يستخدم الأمر ( 1100 ) فى الإعلان عن المتغيرات . ) ( 
(۳) عندما يكون لدینا كود معين نرغب فى تكراره فى أكثر من موضع داخل التصنيف 
نستخدم الدالة Function‏ . ) ( 
(2) الإعلان عن دالة ييدأ ب ( FUNCTION‏ ( وينتهى ب ) End Function‏ ( . ) ( 
() التخفى الإلكترونى يعتبر صورة من صور التعدى الإلكترونى . 6 
(5) جملة ( C458‏ ... 561601 ) تستخدم عندما يكون التفرع معتمداً على قيمة متغير 
( eاVariab‏ ) واحد وهناك شروط كثيرة . ) ( 


(۷) الخطأ فى نتيجة حساب أى معادلة یعتبر خطأ منطقى ٠ |0916| ٤۲٣۲۵۲‏ ( ( 
(۸) تمشياً مع قواعد الاستخدام الآمن يفضل أن تضع كلمة مرور سهلة للبريد الإلكترونى 
الخاص بك حتى تستطيع تذكرها . ) ( 
- 7777111777/] أختر الإجابة المتاسبة لإکمال كل عبارة مما يلى : 
للها الصيخة الصحيحة للإعلان عن متغير العنوان لاا هى EE EASE‏ 
Dim City As String [ Î]‏ إب] Dim City As Decimal [+] Dim City As Byte‏ 
(۲) الاسم الصحيح لمتغير عنوان الموظف هو وليه 
Cairo [ Î]‏ 5 إب] (Address) [+] E_Address‏ 
(۳) تستخدم هذه الصيغة ..... إذا كان هناك 000861 سيتم تنفيذه إذا كان ناتج تتفيذ 
الشرط 71106 أو يتم تنفيذ كود آخر 00062 إذا كان تنفيذ الشرط ©1215 . 
If ... Then [Î]‏ إب] If ... Then ... Or [sz] If... Then ... Else‏ 
(4) تستخدم جملة ...... لتكرار كود معين لعدد من المرات غير معروف نهايته مسبقاً وانما 
بناءً على شرط معين ٠‏ 
For... Next [ Î]‏ [ب] Select ... Case [+] Do while ... Loop‏ 
(5) الناتج التهاثى للمتغير ل للمعادلة 2 + 4 / 12 - 16 = ۷ هو Ree‏ 
pH‏ 35 [ب] 11 [ج] 15 


| | 
ل 


| اختبارات عامة جح الضف الثالث الإعدادى د الكمبيوتر وتكتولوجيا المعلومات والاتصالات | et‏ 


Dim pi As Single = 3.14 ]ب[‎ Dim pi As Single [ Î1 
Const pi As Single = 3.14 ]ج[‎ 
+ مستعينا بالکود التالی أكمل الفراغات‎ 0 - 
Sub ShowOddOrEven (Byval Start As Integer) 
Dim i As Integer 
Label1.Text = " " 
For i = Start To 10 Step 2 
Label1.Text = Label1.Text & " " & i 


Next 
End Sub 


المتغير المستخدم داخل الحلقة التكرارية هو 01 1 1 1 0111111 
قيمة الزيادة فى الحلقة التكرارية تساوى ا O‏ 


1 
القاتر قه 06 فی اکس 


8 اسؤال الأول: | أولا : أكتب المصطلح العلمى الدال على كل عيارة مما يلى ؛ 


)١(‏ مجموعة من الأوامر تحت اسم معين يتم تطبيقها على مدخلات أو وسائط وتعود بقيمة. 

(۲) مجموعة من الأوامر والتعليمات تحت اسم ما يمكن استدعاءه بهذا الاسم ليتم تنفيذ هذه 
الأوامر والتعليمات . 

(۳) من جمل التكرار المحدد يستخدم عندما نرغب فى تكرار كود معين لعدد محدد من المرات 
ثانيا + أجب عن الأسئلة مستعيتا يالكود التالى : Dim N As Long‏ 

N = Me.TextBox1.Text 7 5 ” 7‏ 
)١(‏ التعبير الشرطى فى الجملة هو IF(NMod 2-060 ( Then) eee‏ 
5 کر ار کیاد TT‏ 5 "الركم و " 
(؟) الكود الذئ يقم تنفيذه عندتحقق الشوط .... الوم تسح وو ع 
(۳) الكود الذى يتم تتفيذه عند عدم تحقق الشرط .... ("الرقم فردى")عاه 8 Msg‏ 

End If 


| 1 قصل دراسى انی 
8 
ا 


4l 
الكمبيوتر وتكنولوجيا المغلومات والاتصالات  علا الصف الثالثالإعدادى اختبارات غامة‎ ECD 
٠ آولا .ضع علامة (”) أو علامة (×) أمام كل مما يلى‎ : 
( (. المضايقات الإلكترونية عبارة عن رسائل عدائية موجهة ضد شخص أو أكثر‎ )١( 
جملة ( ۲۸8۸ ...11 ) تستخدم عندما يكون التفرع معتمد على قيمة متغير واحد‎ )۲( 
( ) . وهناك شروط كثيرة‎ 
( التشهير الإلكترونى عبارة عن نشر معلومات عن شخص أو أكثر بشكل مسيئ(‎ )۳( 
: تاتيا : أكمل الجمل التالية مستعينا بالكود التالى‎ 
) Const BirthDate As Date = # 1/1/2018 # [ 


- الكود' 'يغنى الإعلان عن تابت باسشم :..... فى الذاكرة ونوعه وتم تخصيض القي 


- أثناء الإغلان‎ 
: أولا: أجب عن الأسئلة مستعينا بالكود التالى‎ : 
Private Sub Button1_Click 
Dim M As Integer 
For M =1 3 


Me.TextBox1.Text 
Next 


End Sub 


(۳) قيمَة“بداية“الخلقة التكرارية .ا رن 
خاتيا ‏ أختر الاإجابة الصحيحة مما بين القوسين + 
تكون بسبب صياغة تعبيرات.جسابية أو منطقية بصورة خطأ فيؤدى ذلك 


(١)الأخطاء‏ ا 
للحصول على نتائج خطأ . ( عند التشغيل - اللغوية - المنطقية ) 
(۲) الكلمة المحجوزة .... تستخدم فى إنشاء سط جديد ) Const — ybGIIF — byte‏ ( 
(۳) يستخدم!المبرمج الأمر ........ قىئ كتابة ملاحظات يمكن الرجوع إليها داخل الكوداإ» ولا 
يتم ترجمتها .. ( Date‏ تمان - REM‏ ( 


BEE -‏ ضع علامة (”) آو علامة (×) امام كل مما يلكت : 
(١)تتمين‏ لغة ۷8.۸6٤‏ بالتعامل مع أنواع مختلفة من البيانات . 


: فصل دراسى ثانى ا 


الصف الثالث الإعدادى يه 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات 
(؟) الخطأ فى نتيجة حساب أى معادلة يعتبر خطأ لغوئ Syntax Error‏ . 
(۳) الإعلان عن دالة يبدا ب ( Function‏ ) وينتهى ب ( (End Function‏ . 
(٤(‏ يصنف قيمة مجموع درجات الطالب ضمن البيانات الرقمية الصحيحة . 

. يستخدم أمر 01۳ فى الإعلان عن المتغيرات‎ )٥( 

55C۷ )5(‏ يعتبر اسم متغير صحيح . 

E -‏ اختر الإجاية الصحيحة مما بين القوسين , 

) 20-24 -11( .... الناتج النهائى للمتغير × للمعادلة "4 * 2 + 3 =×" هو‎ )١( 


ا کا 


(؟) يستخدم المبرمج الأمر -... فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود ولا يتم 
ترجمتها . ( ROM - REM - RAM‏ ( 
(۳) تعبر عن نافذة النموذج ( ۴0۲۳ ) الحالية (Me - Sub - Byte)  .........‏ 
)٤(‏ فى جملة ©5ا] .. "h0‏ .. ۴ا فى حالة عدم تحقق الشرط يتم تنفيذ ما بعد كلمة E‏ 
Else ) :‏ ج (IF — Then‏ 
)١(‏ تنتهى جملة التكرار »!اللا 0٥0‏ يكلمة ...0.0 (Loop - Next — End)‏ 
ااسؤال الثالث: | أجب عن الأسئلة الآتية مستعينا يالكود التالى : 
)١(‏ اسم المتغير فى الحلقة التكرارية هو الس ا ل ل 
(۲) قيمة بداية الحلقة التكرارية ForM=1To3 |  eeeesesssessesesennenee‏ 
2( قيمة نهاية الحلقة التكرارية مسم شه ةمد م ا ) MsgBox ) M‏ 
)٤(‏ قيمة زيادة العداد #ع ةوس ا عد OR‏ ل 
(<) يتوقف تنفيذ الحلقة التكرارية عندما تصل قيمة المتغير 1 إلى EERE‏ 


EEE 


( أ ) أذكر شروط تسمية الثوايت والمتغيرات ٩‏ 
(ب) آجب عن الأسئلة مستعيتا بالكود المقابل : 


Dim x As Single 
X = Me.Textbox1.Text 
If x >= 50 Then إذا كانت قيمة 90 = × فان ناتج تتفية‎ )١ 
MsgBox اين اكات ("ناجح")‎ 
Else الكود هو‎ 
MsgBox إذا كانت قيمة 40 = × فإن ناتج تنفيذ ("راسب")‎ )۲( 
EIU cats no O الكود هو لمعم ا‎ 


رتك تمده EE‏ تسوبو مومس سور سس عدوت الكل 


E‏ الكمبيوتر وتكنولوجيا المعلومات والاتصالات غ6 الصف الثالث الإعدادى 
اختبارات المحافظات ۲١۱۹‏ 
8ه محافظة الغربية <> _ 
( آولاً ) أجب عن الأستلة الآتية: 
)١(‏ أذكر اثنين من الوسائط الإلكترونية التى يستخدمها المعتدى الإلكتروتى - 
Î1 (۲)‏ [ عرف الدالة Function‏ . 
[ب] ما الأمر الذى يستخدمه المبرمج فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود 
ولا يتم ترجمتها ؟ 
(تاتيا) صحح ما تحته خط فى العيارات التالية : 
)١(‏ إذا كانت قيمة الثابت تاريخ آو وقت توضع بين علامتى " " . 
(۲) ناتج تنفيذ العملية الحسابية: 4/2 + 12-2 هو 9 . 
, (۳) ینفذ الكود الذى يلى ©1215 فى جملة ۱۴ عندما يكون ناتج التعبير الشرطى 1008 ۔ 
(2) فى الكود ( List8 0x1 .اtems. Clear)‏ الجزء 16005 عبارة عن وسيلة . 
[أ] أختر الإجابة الصحيحة من بين الأقواس : 
)١(‏ الخطأ الذى يتم اكتشافه أثناء تشغيل برنامج بلغة ۷8.۴۲ يسمى EET‏ 
Runtime error - Logical error - Syntax error )‏ ( 
(۲) عند الإعلان عن الثابت الرياضى ط "۴" نستخدم الكود Ss‏ 
Const Pi As Single = 3.14 - Dim Pi As Single = 3.14 -‏ ( 
Dim Pi As Single )‏ 
(۳) فی الكود ۸ > ١‏ عازا۷ 00 يتم تنفيذ جمل التكرار طالما E‏ 
( ا اقل من لا - ا أکبر من لا - اتساوى ١‏ ) 
)٤(‏ تنتهى جملة التفرع Select ... Case‏ ب (End If + End Select - Stop (٠.‏ 


Dim M As Integer (IF ... Then ... Else ( [ب] باستخدام جملة‎ 


أكمل الكود الذى يختير الرقم ۸ فإاذا كان زوجى M = Me.TextBoxX1.Text‏ 
900 م 1 5-7 7 IF M Mode 2 = 0 Then‏ 
أو فردى > ويتم طباعة رسالة "الرقم زوجى" فى وده لوا n‏ 

صتدوق رسائة 1/5050 أو رسالة "الرقم فردى" Else‏ 


End If . Ms980× فى صتدوق رسالة‎ 


فصل دراسى ثانی 1 


الصف الثالث الإعدادى 


ع2 الكمبيوثر وتكذولوجيا المعلومات والاتصالات 
ا ا أجب عن الأستلة الآتية مستعينا بالكود التالى : 


Dim n و‎ product As Integer |) الغرض من الكود هو ملسملل‎ -١ 
Dim str As String المتغير الحرفى الذى تم الإعلان عنه‎ -" 
isi Bento Toga TE arye Fo فى الكود هو عسس 0 حنم اه ددا‎ 
Forn =1 To 2 vط‎ €۴ الغرض من جز ء الكود‎ ۳ 
SESIKExKX"&EN&" =" TÎ هو الانتقال إلى سوس‎ 
Prous SS i a E a a | جملة التكرار المستخدمة هى‎ -٤ 
Me.TextBoxl.Text = ou اسطر الکو د المراد تكرارها هى‎ 5 
Me.TextBox1.Text & str & product & الغعرض من الكود التالى‎ 5 
vbCrLf Me.TextBox1.Text = " " 

هو تشو ل ا سس o a‏ نحو 2 دس" 
End Sub‏ 


| ه119 محافظة ال متوفقيفم - FF‏ ¥ | 
بمساعدة الكود التالى أكمل ما يلى : 


Function summation (byVal N1 as long, byval N2 as long)as long 
Dimi, S as integer 
IF N1 mod 2 <> 0 Then N1 =N1 +| 
Fori = N1 To N2 Step 2 
S=S+1 
Next 
Return S 
End Function 


6 ونوع بياناتها هو EE‏ 

n (20 

)۳( ...... وقيمة الزيادة فى الحلقة التكرارية هى ا 
5( كا ولاو اا الیل کہ فى قن 0 

(5) ناتج تنفيذ الكود التالى: MsgBox(summation(3.10))‏ هو إظهار رسالة بها القيمة 


( أ ) ضع علامة (لا) أو علامة (*) مام كل من العبارات التالية : 
)١(‏ جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية. ( ( 


Es ا‎ 


د الصف الثالث الإعدادى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


اصبارات عام | 


( . تستخدم فی تکرار كود مينياً على متغير واحد‎ 561601 C458 جملة‎ )١( 
2 - الخطأ فى نتيجة حساب أى معادلة يعتبر خطأ متطقى‎ )۳( 
( . يمكن استخدامه فى الطرف الأيمن من جملة التخصيص‎ 51  ءارجإلا‎ )5( 
( ) integer للإعلان عن متغير باسم‎ im f_n ame 35 15169©/ الجملة التالية:‎ )( 
چ‎ 

( 

( 


»( فى الكود التالى 2 <> ۸ ءا٣۷۷‏ 00 يتم إيقاف الحلقة التكرارية إذا كانت ۸=2 
(۷) الاستثناء الإلكترونى يعنى تتبع شخص معين فى كافة وسائل التواصل الإلكترونية ( 
(۸) تستخدم أجملة (:عواع:.. مه15 ... ۴| ) فى حالة وجود احتمالين للتفرع . ( 
(ب) أكتب الكود البرمجى لعمل الآتى : 
)١(‏ الإعلان عن ثابت باسم ©5191 لتخزين التاريخ 2/1/2019 . 
(؟) تخصيص القيمة المدخلة فى الأداة 716171586011 للمتغير 50 . 
( أ ) أكمل الجمل ياستخدام الكلمة المناسية مما يلى + 
( البريد الإلكترونى - السب والقذف — vbCrLf - Dim - Select Case‏ - 
False —- 10 - Loop - True - Rem - Do While‏ - 8-4( 


1 


(ب) أكتب المصطلح العلمى : 
)١(‏ الخاصية المستخدمة لإضافة العناصر لأدلة التحكم “ا017580860© . 
(۲) يتكون من خلاثة أجزاء : معامل منطقى تسبقه قيمة تتم مقارنتها بقيمة أخرى بعده . 
(؟) مجموعة من الأوامر والتعليمات تحت اسم ما يتم استدعاتها بهذا الاسم ليتم تنفيذ هذه 
الأوامر والتعليمات . 
)2( هى رسائل عدائية موجهة ضد شخص أو أكثر . 


فصل دراسى ثاقى ١‏ ا ١‏ 


الصف الثالث الإعدادى 


ا الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


EEE ©‏ 
(1) أعد كتابة العبارات التالية بعد تصحيح ماتحته خط ؛ 
)١(‏ الكلمة المحجوزة 48ل تعبر عن نافذة النموذج (0550) الحالية . 
(۲) الكلمة المحجوزة 5111136 تستخدم لإنشاء سطر جديد . 
(') فى الجملة التالية: 3 Step‏ 5 10 10 = × ۴0۲ قيمة × بعد انتهاء التكرار ھی 5 . 
(4) المتغير من النوع عأ يأخذ القيم الرقمية الصحيحة ومداه من (0 إلى 255) فقط. 
(5) يبدأ الإعلان عن المتغيرات باستخدام الكلمة المحجوزة A‏ . 
(5) ناتج العملية الحسابية التالية: 2-2*2 / ( 3٨2+3‏ ) هو 9 . 
(ب) أكتب المصطاح العلمى المتاسب للعبارات التالية : 
)١(‏ عبارة عن مجموعة من الأوامر تحت اسم معين » يفضل أن يكون الاسم معبراً عن 
وظيفتها وتعود بقيمة . : 
(۲) هى نوع من الأخطاء تؤدى إلى نتاج خاطئة بعد التشغيل بسيب خطأ فى صياغة 
التعبيرات الحسابية . 
(؟) عبارة عن أماكن محجوزة بالذاكرة الا وعادة ما تتغير قيمتها أثناء سير البرنامج . 
)٤(‏ عبارة عن استخدام أسماء مستعارة لا تظهر شخصية المتعدى الإلكترونى بغرض عدم 
كشف أمره والإفلات من العقاب . 
(1) أكمل ما يأتى بالكلمة المتاسية ؛ 
)١(‏ الكود اللازم للإعلان عن الثابت ( ١‏ ) التخزين القيمة "تحيا مصر" هو NES‏ 
)۲( فى الكود التالى: Sub Num (ByVal Start As Integer)‏ 
اسم الوسيط ) Parameter‏ ) هو 1016 
(۳) التعدى الإلكترونى هو heee‏ 
)٤(‏ الكود اللازم لتخصيص القيمة ( 852 * 3.14 ) للأداة 25©11ا.هو E‏ 
(©) أفضل جملة للتفرع تعتمد على قيمة متغير واحد وشروط كثيرة هى جملة ملعملل 
»( .++ غيازة عن تنشر كلمات عذائية ومبتذلة ضد شخص أو أكتر من خلا آحد 
وسائط الإتصال الإلكترونية . 


ا ا قصل دراسی ثانى 


ESD‏ الكمبيوتر وتكنولوجيا المعلومات والاتصالات 2 27 الصف الثالث الإعدادى «ه م 
(ب) اقرا الكود التالى ثم أجب : 


Dim M,N,X,Y,Z As Single 
MM =4 atts NESSES EGA u VSS 
IF M>Z Then 
ماع لح ح لل‎ 
دعر‎ 2 + 
Y=X+Z 
Else 
N=Y-Xx 
X=Z-M 
Y=M+N 
End TF 
MsgBox(N) : MsgBox(X) : MsgBox(Y) 


- أوجد قيمة كل من: 
- المتغيرات: لا , × , ا وناتج التعبير الشرطى ( 2 > MN‏ ). 


(1) آختر الإجاية الصحيحة من بين الأقواس : 
)١(‏ ناتج تنفيذ العملية الحسابية التالية: 11-(2*)7+2 هو .. ( 16 , 2257507 7-) 
(؟) يستخدم المبرمج الأمر .... فى كتابة ملاحظات بالبرنامج ولا يتم ترجمتها : 
Single - Rem - Next - Dim 1‏ ( 
(۳) أسماء المتغيرات التالية صحيحة ما عدا ... 
_E_Address - Cairo5 - E_Address - 5Cairo )‏ ) 
(4) يتم استدعاء الإجراء فى نافذة الكود . 
( مرة واحدة فقط - مرتين فقط - أى عدد من المرات - لا شئ مما سبق ) 
(©) لتخزين قيم منطقية نستخدم متغيرات من التوع (Boolean - Short - Byte - Date)‏ 
(5) تستخدم جملة ....... فى تكرار كود محدد غير معلوم عدد مرات التکرار ٠‏ 
(IF .. Then - For .. Next — If .. Then .. Else - Do While)‏ 


(ب) بعد تتفيذ الكود يكون Dim A „, 8 , © As Integer ١‏ 
2 3 3 2-1 - 15-2 
)١(‏ قيمة 8 هى EE‏ اينع TTT pea BRAS‏ وق FoF AST‏ 
؟) قعة 6ع هع 0 
(۲) قيمة ٤‏ هى 121 ا كمض نت خلس هید اد تمك نا او و و عد زو 
(۳) قيمة ۸ بعد إنتهاء التكرار هى عقوا ا NERAST EE > | E‏ 


قصل دراسى ثاتى ا ا 1 


الصف الثالث الإعدادى ١‏ د الكمبيوتر وتكتولوجيا المعلومات والاتصالات 


r RUT TD 


ضع علامة (۷) آمام العبارة الصحيحة وعلامة (*) أمام الخطأء 
)١(‏ مواقع التواصل الاجتماعى تساعد فى التعرف على أشخاص جدد يفضل مقابلتهم لتطوير 


العلاقات الاجتماعية . ) ( 
)١(‏ جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه . ) ( 
(۳) الثوابت فى لغة ۷8.٥١‏ عيارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة تتغير 

أثناء سير البرنامج . ) 1 
)٤(‏ عند الإعلان عن إجراء يمكن استخدام أكثر من ) (Parameter‏ . ) ( 
)<( الجملة التالية: Dim F_name As String‏ للإعلان عن متغير باسم 510100 

( ) . F_nam@e وثوعه‎ 


]| أكمل العبارات التالية بالمتاسب : 


)١(‏ إذا كانت قيمة الثابت تاريخ أو وقت توضع بين علامتى ا 


...-.-..-.-..٠ ()‏ تعبر عن نافذة النموذج ( ۴0١۲۳‏ ) الحالية . 

™( ........ عبارة عن مجموعة.من الأوامر والتعليمات تحت اسم معين » وعند استدعاء هذا 
الاسح يتم تنفيذ هذه الأوامر والتعليمات . 

(4) الناتج النهائى للمتغير × للمعادلة " 4 * 3 + 3 - 2< " هو: 00 

(2) رسالة الخطآ التى تظهر عند كتابة الكود " Dimension × As Byte‏ " » يمكن 
تصنيفها خطأ E Ee‏ 


)١(‏ نوع المتغير × فى الكود هو: ی ر ا 
)"( يتم تتفيذ الكود إذا وقع الحدث: RATERS‏ 
(۳) إذا كانت قيمة 45=× فإن ناتج تنفيذ الكود 


Private Sub Button1_Click 
Dim X As Single 
X = Me.TextBox1.Text 
IF X>= 50 Then 
MsgBox ("ناجح")‎ 
Else 
MsgBox )"راب"(‎ 
End IF 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات ل الصف الثالث الإعدادى اختبارات عامة 


أجب عن الأستلة التالية مستعينا بالكود التالى : 
For i 1 To 8 Step ©‏ 


Me. TextBox1. Text = Me. TextBox1. Text & i & vbCrLf 


ESR تيدأ الحلقة التكرارية بالقيمة‎ )١( .................. اسم متغير العداد:‎ )١( 
ae gE تنتهى الحلقة التكرارية عند القيمة .... (5) قيمة زيادة العداد لصوو اسيك مده‎ )۳( 
سمو ا‎ e الغرض من ا٣٣۷0 هو عه‎ )2( 


| 2725 محافظة كفر انشيخ ٠.‏ «ت 1212 _ 


ضع علامة (۷) أمام العبارة الصحيحة وعلامة (×) آمام الخطاً: 


( ( جميع أنواع البيانات التى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية.‎ )١( 

(؟) الإعلان عن دالة يبدأ ( Sub‏ ) وينتهى ب ( Sub‏ 0مع ) . ) ) 

(۳) يُصنف قيمة نوع الطالب "ذكر" أم "أنثى" ضمن البيانات المتنوعة المنطقية . ( ( 

FEY - التخفى الإلكترونى يعتبر صورة من صور التعدى الإلكترونى‎ )٤( 

(©) جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه وقيمته الثابتة . ( ( 

أكمل العبارات التالية بالمتاسب : 

)١(‏ الناتج النهائى للمتغير ل للمعادلة " 2 + 12/4 - 16 = ۷ " هو Ug‏ ا 

Rm يسمى ا‎ ۷8.٤۲ الخطأ الذى يظهر أثناء كتابة كود بلغة‎ )١( 

(۳) يستخدم الأمر .................. فى الإعلان عن الثوابت فى لغة 1علا. لا . 

)٤(‏ تستخدم جملة ........ لتكرار كود معين لعدد من المرات غير معروف نهائياً مسبقاً وإنما 
بناء على شرط . 

)°( ..... عيارة عن مجموعة من الأوامر تحت اسم معين يفضل أن يكون معبراً عن وظيفتها 


يتم تطبيقها على مدخلات أو وسائط ( 2130761675 ) وتعود بقيمة . 
(1) أكتب المصطاح العلمى الذی يدل على كل عبارة مما يلى : 
)١(‏ عبارة عن نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ . 
)١(‏ عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر )۸R۸M(‏ عند الإعلان عنها يتحدد له اسم 
ونوع (71/58 0243) وعادة ما تتغير قيمتها أثناء سير البرتامج . 
قصل دراسى ثاقى 1 


0 
| اختبارات عاف الصف الثالث الإعدادى 2 الكمبيوتر وتكنولوجيا المعلومات والاتصالات € 
(۳) مجموعة من الأوامر والتعليمات تحت اسم ما »> يمكن استدعاتها بهذا الاسم ليتم تنفيذ هذه 
الأوامر والتعليمات . 
(ب) أجب عن الأستلة التالية مستعيتا بالكود التالى : 
| (العدد سالب)»اه 115018 Else‏ (العدد موجب))80 1/159 IF X < 0 Then‏ 


)١(‏ أكتب التعبير الشرطى فى الجملة السابقة امهل مسد لعي 
(۲) الكود الذى يتم تنقيذه عند تحقق الشرط هو چ 
(۳) الكود الذى يتم تنقيذه عند عدم تحقق الشرط هو 
الغرض من الكود التالى طباعة جدولا لضرب الأعداد للعدد ( 1 ) 
من ١ ٠١ : ١‏ المطلوب: صوب الأخطاء الأربعة بالكود حتى تحصل 
على تتيجة صحيحة للكود غى الجدول: 
Dim n , Product As String‏ 
Dim Str As String‏ 
Me.TextBoz1.Text = " "‏ 

For n = 1 To 10 Step =1 

"x" &n & "="‏ & 3 حدم 

Product = 9 م*‎ 
Me.TextBox1.Text = Me.TextBox1.Text & str & product & vbCrLf 


Next Str 
End Sub 


11111771 ضع علامة (”) مام العبارة الصحيحة وعلامة (*) أمام الخطاء 

) (- التخفى الإلكترونى هو نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ‎ )١( 

) (  . جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه وقيمته الثابتة‎ )١( 

(؟) أحد زملائك ليس له بريد إلكترونى من الجيد أن تعطيه حسابك الشخصى ليستخدمه( ) 

) ( 70/6 هو‎ M <= )۸+7( إذا كان ۸=12 و 8=5 فإن ناتج التعبير الشرطى‎ )٤( 

(©) تستخدم ©35© .. 56/661 فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة 
9( ) 


”) الدالة 61100 لاط لا تعود بقيمة بينما الإجراء 6لا يعود بقيمة . 
عو وجرا عو 


1 فصل دراسى شانی 


012200071 (أ) آختر الاجاية الصحيحة مما بين القوسين : 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات اد الصف الثالث الإعدادى 


( Enter - vbCrLf - REM) ...... كلمة محجوزة تستخدم لإنشاء سطر جديد‎ )١( 
RAE (؟) لعرض الأعداد الزوجية مرتبة ترتيباً تنازلياً من 18 إلى 8 نكتب الكود‎ 

(For M = 18 To 8 - For M = 18 To 8 Step 2 - For الا‎ 18 To 8 Step -2( 
51098 عند الإعلان عن الثابت الرياضى (ط) نستخدم الأمر‎ )۳( 


Sub — Dim - Const )‏ ( 
(4) الناتج النهائى للمتغير ۴ فى المعادلة ”3 + 2 / 6 - 16= ۴" هو e‏ 


(5) إذا وجد خطأ فى نتيجة حساب مساحة الدائزة فى برنامج يعتبر هذا خطأ ......- 

( لغوى - منطقى - أثناء التشغيل ) 
IF M mod 2 = 0 Then MsgBox("Even") Else MsgBox("Odd") (‏ 
بفرض أن 9 = ۸ سيكون تاتج تتفيذ الكود السابق هو ....... ) True - Odd — Even‏ ( 


(ب) آجب عن الأسئلة التالية بعد تتفيت الكود التالى : 


Dim M, R,D As Integer 
M=0 : R=5 
For D = 1 To 12 Step 4 = 0 قيمة المتغير‎ )١ 
M=M+D اب ا‎ 
Next = ۴ قيمة المتغير‎ )۲( 
IED 2 Re TRON 7I SARS = ۸N قيمة المتغير‎ )۳( 
ناتج تنفيذ الشرط ۸ =< 5 ديك اسمس فس ا‎ )4 
Else ا‎ 
R=R-2 
End IF 
a A 
XA ESSE للإعلان عن متغير اسمه 0 يحدد نوع الطالب تكتب الكود‎ )١( 
aera وإعطائه القيمة 2 تكتب الكود‎ ShowOddOrEven لإستدعاء الإجراء‎ (") 
. عبارة عن تجاهل شخص أو أكثر من خلال الوسائط الإلكترونية‎ ............... (") 
aS TRS RSS قيمة أسماء المواد الدراسية يمكن تصنيفها كبيانات مداه عن لاه‎ )٤( 


| اختتبارات عامة ج الصف الثانث الإعدادى ‏ * الكمبيوقر وتكنولوجيا المعلومات والاتصالات للا 
«/424>. - محافظة الجيرة ٠‏ <2585 | 

أكمل العبارات التالية مستعينا بالكلمات بين القوسين : 

) المضايقات الإلكترونية - ©17أ99/ا065] 51814 - الرقمية - علامتى # # - (IF..Then‏ 

() تضكقك قيمة مجموعة دوجات الطالب,ضمن: الييانات کک چو و عد ى 
3( مد هی وتنائل عدائية موجهة ضد شخص أو أكذن . 


)٤(‏ جملة التفرع اش 0 ی ال کے کے ا ل 
() إذا كانت قيمة الثابت تاريخ أو وقت توضع بين ومو 
ضع علامة (”) آمام العبارة الصحيحة وعلامة (×) أمام الخطأء 


( ) . (Parameters) عند الإعلان عن إجراء يمكنك استخدام أكثر من وسيط‎ )١( 
( ) . ليس حن اتصرورين تحرى الدقة عند كتابة التعبيرات الحسابية‎ )۲( 
( ) . العلامة المنطقية ( <> ) تعنى " أصغر من أو تساوى"‎ )۳( 
( ( . من قواعد الاستخدام الآمن للإنترنت إعداد كلمة مرور يصعب استنتاجها‎ )٤( 
( البياتات المتنوعة هى التى لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية.(‎ )١( 


)١(‏ الدالة ( 400©اناط ) عبارة عن مجموعة من الأوامر تحت اسم معين يتم تطبيقها 
على مدخلات أو وسائط وتعود بقيمة . ) ( 
أكمل الجدول مستعيتا بالكود التالى : 
Dim i As Integer‏ 
For i = Start To 10 Step 2‏ 
Next‏ 
م6 المطلوب الاجاية 
١‏ اسم المتغير 0020_0217 1 1 saa‏ 
۲ نوع المتغير ممقيه جعو وي ووذ نه اول داه منج 2 
ا الحلقة التكرارية ل القيمة ممشووقووه مودو جح الك eee RE‏ 


5 الحلقة التكرارية تنتهى بالقيمة 1 ل + + <زةن2 2 ةي ز 2 ذزنز11 1 1 2110110101 


6 قيمة الزيادة تساوى القيمة meneame‏ روه ممعم معي معيو متم »مه iam‏ 


1 قصل دراسى ثاتى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات ‏ < الصفم الثالثالإعدادئى 


|السؤال الرابع: الك : أكتبٍ المصطاح العلمى : 
)١(‏ يتكون من ثلاثة أجزاء » علامة منطقية يسبقها متغير أو ثابت يتم مقارنتها مع قيمة ٠‏ 
(؟) نوع بيان الحد » الأدنى:له القيمة ( 0 ) والحد الأقصى اله القيمة ( 255 ) . 
)1١(‏ التقنيات التى يستخدمها المتعدى الإلكتروتئ - 
خاتيا ٠‏ أكتب الكود الذى يقوم بالاعلان عن متغير باسم ( #صNNa‏ ۴ ) فی 
الذاكرة من التوع ( 5625 ).. 


]| صع علامة (”) أمام الميارة الصحيحة وعلامة (×) أمام الخطا: 

( ( . يستخدم نوع البيان ( 8ا8 ) للإعلان عن متغير يحتوى على بيانات حرفية‎ )١( 
فئ حالة وجود.كود واحد فقط ينفذ ناء على‎ )1۴ .. ۲۲٣۵۸ .. عا5٥( تستخدم جملة‎ )۲( 
) ششحة أحكار الشر كل د‎ 

(۳) مقدار الزيادة الاقتراضية فى جملة ( ا×Ne‏ ... ۴٥۲‏ ) هو ( 1) . ) 
)٤(‏ ( م516 ) هى أحد مكونات جملة ( Do While ... Lop‏ ( . ) 
(2) العلامة ( # ) هى أحد العلامات المنطقية المستخدمة فى التعبير الشرطى . ( 
1171 ادکر المصطلح العلمى لکل ما يلى: 
)١(‏ يعبر عن الحد الأدنى والحد الأقصى لنوع البيان المعلن عنه . 
(۲) مجموعة من الأوامر والتعليمات تحت اسم ما ء يمكن استدعائها للتنفيذ دون كتابتها مرة 
أخرى 2 
(۳) جملة أمرية تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وشروط كثيرة » مما 
يوفر العديد من الأكواد ويجعل الكود سهلاً . 
(2) عبارة عن سلوك عدواتى متعمد من شخص لآخر عبر وسائط الاتصال الإلكترونى ٠‏ 
(2) مخزن فى ذاكرة الكمبيوتر يتحدد له اسم ونوع وقيمة لا تتغير أثناء سير البرتامج . 
E‏ حتر الإجاية الصحيحة مما بين القوسين : 
)١(‏ الإجراء فى لغة 1 ٠/8.70‏ الذى يعود بقيمة يسمى:. ( Event - Funetion = Sub‏ ( 
(۲) تستخدم ۰...... فى إنشاء سطر جديد عند عرض النتائج فى لغة ۷8-٤7‏ . 
REM — vbCrLf (‏ دع ) 


فصل دراسى ثاتى ا 


اختبارات عامة 


سک ص لسر سيل 


| 


الصف الثالث الإعدادق ع الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


(۳) يطلق على استخدام اسم مستعار لشخصية المتعدى الإلكترونى HR‏ 
( الملاحقة الإلكترونية - التشفير الإلكترونى - التخفى الإلكترونى ) 
)١(‏ الناتج النهائى للمعادلة: "2 / ( 4 + 6)* 22-23 - لل" هو .. ( 85-7 -95) 
(2) أسماء المتغيرات التالية كلها صحيخة ما عدا : ( (_StText ~ St. Text - St Text‏ 
( أ ) حول جزء خريطة التدفق 
إلى كود يلغة VB.NET‏ 
باستخدIم‏ جملة IF .. Then‏ 


: Do While ... 1007 (ب) أعد صياغة الكود التائى باستخدام جملة‎ 
For i = 10 To 1 Step -2 
Me.TextBox].Text = Me.TextBox1.Text & i & vbCrLf 
Next i > 


206 محافظة المليوبية TEE‏ | 
أكفل العباوات التالية باشتاسب: 
)١(‏ الحيز التخزينى لنوع البيان 1516967 هو و ا 
)١(‏ جملة شرطية تستخدم فى حالة وجود بديلين RE‏ 
(۳) إذا كان 4-1 * 3 + 2 = ۸ فإن قيمة 6 هى 


(4) تستخدم جملة . لتكرار كود معين لعدد من المرات غير معلوم مسبقا - 
(5) استخدام أسماء مستعارة تخفى شخصية المتعدى بغرض الإفلات من العقاب إا 
(5) يستخدم الأمر وملة. اوتا ,قى اغلام عن دالقوايت 2 


اكتب .ا كود المتاسب عل مااياقى: 

. ۴0۲ .. تنازلياً باستخدام جملة 4«هلا‎ ١ إلى‎ ٠١ طباعة الأعداد الفردية من‎ )١( 
. ) الإعلان عن متغير باسم × يعير عن نوع الطالب ( ذكر - أنثى‎ )۲( 

(۳) الإعلان عن دالة باسم 00٥0‏ من التوع #اطاناهن] . 

(4) تخصيص محتوى 168071 للمتغير 2 ٠‏ 


١|‏ فصل دراسی ثاتى 


الكمبيوتر وتكنوتوجيا المعلومات والاتصالات < الصف الثالث الإعدادى 7[ _اختبارات عامة | 
اقرا الكود ثم أجب عن الأسئلة : 


St اسم الإجراء هو‎ )١( 
2101 الوسائط‎ (") 


(۳) نوع الوسائط EE‏ 
)٤(‏ عند استدعاء 
الأمر Number(6)‏ 


Sub Number (ByVal Start as Short) 
Dim X As Integer 
Label1l.Text = " " 
For X = Start To 10 Step 2 
Labell.Text = Label1.Text & vbCrLf & X 
Next X 
End Sub 


اذكر الخصطلح العلمى الدال على كل ما يلى: 

. نوع من الأخطاء يسمح بتنفيذ الكود ويعطى نتائج غير سليمة بعد تشغيل البرنامج‎ )١( 
. مخزن محجوز بذاكرة الجهاز له اسم ونوع بيان وقيمة تتغير أثناء تشغيل البرنامج‎ )۲( 
مجموعة من الأوامر والتعليمات تحت اسم معين يتم تطبيقها على مدخلات أو وسائط‎ )۳( 


وتعود بقيمة . 


. كلمة محجوزة تستخدم فى إنشاء سطر جديد‎ )٤( 
. جملة تفرع تستخدم فى حالة شروط متعددة ولكنها تعتمد على متغير واحد‎ )2( 
. جملة من طرفين بينهما علامة يساوى ولا يقصد بها التساوى الحسابى‎ )5( 


RR‏ ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام الخطأء 

( ) . من قواعد الاستخدام الآمن للإنترنت حذف رسائل التعدى‎ )١( 
( ( ٠. مخازن بذاكرة الكمبيوتر لها اسم ونوع‎ ۷/8.٤۲ يقصد بالمتغيرات فى لغة‎ )۲( 
الدالة عبارة عن مجموعة من الأوامر تحت اسم معين يتم تطبيقها على وسائط وتعود‎ )۳( 


) 


) من أولويات تنفيذ العمليات الحسابية تتفيذ الأس قبل تتفيذ العمليات داخل الأقواس(‎ )٤( 


(2) جملة ©2385 .. 5|601 تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد 


وهناك شروط كثيرة . 


(3 


(5) لا يمكن كتابة جملة ( 7580 .. ۴| ) فى سطر واحد . م 


فصل دراسى ثانی 1 ١‏ 


الصف الثالث الإعدادى < الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


أختر الإجاية الصحيحة مما بين القوسين . 


)0( ........ من الوسائط الإلكترونية التى يستخدمها المعتدى الإلكترونى . 
( التخفى - مواقع التواصل الإجتماعى - التهديد الإلكترونى ) 
(۲) الغرض من استخدام ء.......... عدم تكرار كتابة كود معين عدة مرات فى البرنامج . 


( المتغيرات - الإجراء - الوسائط ) 
(۳) الاسم الصحيح لمتغير اسم الموظف هو EE‏ 
(E_name - E name - [E_name] (‏ 
(4) إذا وجد خطأ فى نتيجة حساب مساحة الدائرة قى برنامج يعتير هذا الخطأ E‏ 
( لغوى - متطقى - أثناء التشغيل ) 
)٥(‏ كلمة ...... تستخدم فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود ولا يتم ترجمتها. 
(Me - vbCrLf - REM (‏ 
. (7) فى حالة عدم معرفة مرات التكرار بشكل قاطع » تستخدم جملة التكرار E‏ 
Do while .. loop — For .. Next - IF .. Then (‏ ( 
أكمل التالى مستعيتا بالكود + 
)١(‏ قيمة المتغير 8/212 تساوى ..- 0 = Arabic‏ 


English = 0 1 
IF Arabic > 50 Then ... قيمة المتغير ۸ءااوہع تساوى‎ )۲( 


Total = Arabic + English 


)٣‏ ناتج التعبير 50 < 281/3512 يكور 
(5) نات Avg = (Arabic + English)/2‏ 


Else 
Arabic = 1O ... قيمة المتغير 10181 تساوى‎ )4( 
English = 70 CA A 
Total = Arabic + English e e RNG REF 
Avg = (Arabic + English)/2 
End IF 


أجن ل الأسكنة الكالية + 

. )٠١ : ١( اللازمة لعرض الأعداد الفردية من‎ ۴٠١ أكتب جملة‎ )١( 

. )٠١ : ۲( أكتب جملة 207 اللازمة لعرض الأعداد الزوجية من‎ )١( 
. أكتب سطر البرمجة اللازم للإعلان عن متغير × من النوع ©او5ا5‎ )۳( 


١|‏ فصل دراسى ثانی 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات عله الصف الثالث الإعدادى اختبارات عامة 


محافظة بي سويت ج222 
ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) آمام الخطاً: 
)١(‏ يستخدم الأمر 0754© فى الإعلان عن المتغيرات . ) 
(۲) يمكن كتابة جملة ۱۴ فى سطر واحد بدون ۱۴ ۴٣۵‏ . ) 
)%۳( الدوال Functions‏ تستدعى فتعود بقيمة فى ضوء القيم المخصصة لها . ) 

) 

) 


. 7 هو ع٥٣۲ عندما تكون قيمة ۸ تساوى‎ MN <= 8 ناتج التعبير الشرطى‎ )٤( 
. فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود‎ #٤۷ يستخدم الأمر‎ )( 
اختر الإجابة الصحيحة لإكمال كل عيارة مما يلى:‎ 
558 القيمة النهائية للمتغير 8 بعد تنفيذ المعادلة التالية " 2 * 3 + 4 = 8 " هى‎ )١( 
)10 - 14 - 9( 
(؟) لإظهار صندوق رسالة يحمل كلمة "٣م9۷" نستخدم الكود ا‎ 
) كل ما سبق‎ - MsgBox)" Egypt") ¬ Label1.Text = "Egypt" ( 
تشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من خلال أحد وسائط الاتصال‎ )۳( 
الإلكترونية . (السب أو القذف الإلكترونى - التشهير الإلكترونى - الملاحقة الإلكترونية)‎ 
تستخدم لتكرار كود معين لعدد من المرات غير معروف نهايته مسبقاً وإنما بناء على‎ )4( 
) لاشئ مما سبق‎ - F۴ ..Next - Do While .. Loop ( شرظ معین.‎ 
هو ا‎ Din 5201105 As 510018 نوع الخطأ فى الكود التالى‎ )2( 
) خطأ منطقى - خطأ لغوى - خطأ أثناء التشغيل‎ ( 
مستعينا بخريطة التدفق ؛ أكمل كود البرمجة للحصول على‎ ) 1١ 7 
: 50 رسالة "تاجح" إذا كانت درجة الطالب أكير من أو تساوى‎ 


Dim .... )1( .... As Single 
X = Me.TextBox1.Text 
IfX >= 50 Then 


OF 
End If 


فصل دراسى ثاتى ١‏ | | 


الصف الثالث الإعدادى 


6 الكمبيوتر وتكنولوجيا المعلومات والاتصالات 
(ب) أكتب المصطاح العلمى الدال على كل عبارة مما يلى : 

. سلوك عدوانى متعمد من شخص لآخر عبر وسائط الاتصال الإلكترونية‎ )١( 

(۲) أماكن محجوزة فى ذاكرة الكمبيوتر ( 84۸M‏ ) تأخذ قيم ثايتة لا تتغير أثناء :سير البرنامج 

(۳) جملة تستخدم عندما يكون التفرع معتمدأ على قيمة متغير واحد وهناك شروط كثيرة . 

أكمل مكان النقط مستعينا بالكود التالى : 

| Sub ShowOddOrEven (ByVal Start As Integer) 

Dim N As Integer 

Label1.Text = " " 


For N = Start To 10 Step 2 
Label1.Text = Label1.Text &" " & N 


Next 
End Sub 
Private Sub Button1_ Click (ByVal Sender As 
ShowOddOrEven (6) 
End Sub 
4 اسم الإجراء كف افيه‎ )١( 
تم الإعلان عن 213176167 باسم ..... ونوعه و‎ )۲( 
ERR A قيمة الزيادة فى الحلقة التكرارية تساوى‎ )۳( 
تكون القيم المعروضة على الأداة‎ Even )6( عند استدعاء الإجراء‎ )٤( 
0000 هى‎ 1 


ضح علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام الخطاً. 
)١(‏ جملة الإعلان عن المتغيرات يتحدد فيها اسم المتغير ونوعه وقيمته الثابتة . ( 
(؟) الخطأ فى نتيجة حساب أى معادلة يعتبر خطأ لغری Syntax E۲٣٥۲‏ . ) 
(؟) كل تصنيف من أنواع البيانات ( 11/065 0313 ) له أكثر من نوع . ) 
)٤(‏ التخفى الإلكترونى يعتبر صورة من صور التعدى الإلكترونى . ) 
(5) يمكن كتابة جملة ( ۱۴ ) فى سطر واحد بدون ( E۸۵۱۴‏ ) . ) 
(1) الإجراء ©1لا00068 عبارة عن مجموعة من الأوامر والتعليمات يتم تكزارها عدد 

محدد من المرات . ) 2 


س س س 


| ا | فصل دراسى ثانئ 


کر ر ر ر ر 


1 1 ابلك الكمبيوتر وتكنولوجيا المعلومات والاتصالات ‏ > الصف الثالثالإعدادى _اختبارات عامة | 
١١ EE‏ ) أجب عن التقاط التائیة : 
)١(‏ عرف التوابت ( 8ا٣ Costa‏ ) . 
(۲( فيما يستخدم الأمر ( REM‏ ) ؟ 
(ب) أجب عن الأستلة التالية مستعينا يالكود التائى : 
Dim X As Single‏ 


X = Me.TextBox1. Text إذا كانت قيمة 76 = × فإن ناتج تنفيذ‎ )١( 
IF X >= 50 then 


الكود wra A ae‏ 
الكود اج ("ناجح") MsgBox‏ 
(؟) إذا كانت قيمة 49 = × فإن ناتج تنفيذ Else‏ 
الكود هو ا 013 MsgBox ("lj 7 OF‏ 


End IF 


أكتب آمام كل عبارة يالعمود (ب) الرقم المتاسب من العمود ( أ) : 
العمود ( أ ) العمود (ب) 

vbCrLf ١‏ أ) | تعبر عن نافذة النموذج )۴٥١۲۳(‏ الحالية. 

تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد 

وهناط شروط كثيرة ۔ 

Select... Ca | ۳‏ | ج) | تستخدم قى إنشاء سطر جديد . 


Function ۲‏ ب) 


عبارة عن مجموعة من الأوامر تحت اسم معين - يفضل 
Me ٤‏ د ) | أن يكون معبراً عن وظيفتها - يتم تطبيقها على مدخلات 
أو وساتط وتعود بقيمة . 


REE‏ ختر الإجابة الصحيحة لاكمال كل عبارة مما يلى: 


)١(‏ فى جملة ۸۵×٤‏ .. ۴۵۲ يمكن تحديد معدل الزيادة للمتغير بكلمة ...... ثم كتابة قيمة 
رقمية أو متغير رقمى . [ 1 ] )لاهلا [ب] Sub‏ [ج] Step‏ 
(۲) يستخدم الأمر ............ فى الإعلان عن المتغيرات فى لغة ۷8.٤‏ . 
Const [ Î ]‏ ]ب[ Dim‏ [ج] Sum‏ 
() لتشغيل البرنامج فى لغة ۷8.۸۴۲ نضغط على مفتاح ....... من لوحة المفاتيح . 
F4 [Î]‏ [ب] F7 [ez] F۴5‏ 


ب فصل دراسى ثانى 


الصف الثالث الإعدادى ) علو 


)١(‏ الناتج النهائى للمتغير لا للمعادلة " 2 / (4 + 2) - 18 = ۷" هو کل 


71 [ب] 12 1 اجا 15 
(2) الاسم الصحيح لمتغير عنوان الموظف هو EEE‏ 

(Addreess) آج]‎ E_Address ]ب[‎ SCairo [ Î] 
قيمة أسماء المواد الدراسية يمكن تصنيفها كبياتات 205ص‎ )1( 

[ أ ] متنوعة إب] رقمية غير صحيحة [ج] حرفية 


ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام الخطاً؛ 
)١(‏ جميع أنواع البيانات يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية  .‏ ( 
(۲) إذا كانت قيمة الثابت حرفية توضع بين علامتى # # - ) 
(۳) يتم تنفيذ ما بعد ( 2156 ) إذا كان ناتج الشرط ( 58ات۴ ) فى جملة ( 1 )- ( 
(4) يتم تشغيل البرنامج بالضغط على مفتاح ( ۴3 ) من لوحة المفاتيح . ) 
(5) يمكن كتابة جملة ( ۱۴ ) فی سطر واحد بدون ( ۴| 500 ) . ) 
آختر الإجاية الصحيحة مما يين القوسين , 
)1( الاسم الصحيح لمتغير عنوان الموظف هو Cairo - E_Sddress - ?Sddress)‏ 5( 
)١(‏ قيمة أسعار الأدوات المكتبية يمكن تصنيفها كبيانات .. 
( رقمية غير صحيحة - رقمية صحيحة - متنوعة ) 
(۳) الخطأ الذى يظهر أثناء تشغيل البرنامج بلغة ۷8.۸۴۲ يسمى is‏ 
(Runtime Error - Logical Error — Syntax Error )‏ 
)٤(‏ ثابت حرفى يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد es‏ 
(Me - vbCrLf - Text box (‏ 
(©) جملة شرطية تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وهناك شروط 
كثيرة لاما Sêlect Case — For ... Next - Loop)‏ ) 
0200 (أ) أكتب المصطلح العلمى لكل ما يلى : 
)١(‏ عبارة عن طرفين بينهما علامة ( = ) » الطرف الأيسر يمثل اسم المتغير أو الثابت الذى 
يستقبل أو تخزن فيه القيمة الموجودة بالطرف الأيمن ٠‏ 
(۲) عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة تتغير أثناء سير البرنامج . 
8 ُُ4ُجُ44بئل س 3ش“ 1إ|إ|| 


| فصل دراسى ثانى 


تيك سف اييتتو ميخم 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات _ اا 
(ب) ضع خطا تحت ال مختلف أفيما يلى ٠‏ 


الصف الثالت الإعدادى 


ل اعبارات عام ]| 


Integer چ‎ Long Tk String (1) 
For ... Next ج‎ Do ... While — MIF ... Then (¥) 
Syntax error چ‎ Logical error 2 Const (r) 


: أكمل الجمل التالية‎ ) ١١ EEN 

EROL الناتج النهائى للمعادلة " 2 /( 3 + 5 ) - 20 =×" هو‎ )١( 

(؟) يستخدم الأمر 0754© فى الإعلان عن اع 00 
(ب) أجب عن الأستلة مستعينا بالكود التالى : 


Private Sub Buttonl_Click 


TIDE ASSET | نوع المتغير × فى الكود هو عضا ضعي سوو اك‎ )١( 
X = Me.TextBox1.Text .-:. فى الكود تشير إلى‎ " 1٥" كلمة‎ )۲( 
IFX >= 50 then إذا تم إدخال القيمة (50) فى صندوق‎ )۳( 
MsgBox ("zجli")‎ .... التص يكون تات تتفيد الكود هو‎ 
End IF 
End Sub 


اگ محافظة شال سگ ¬ <2578 | 
i ١ HEE‏ ) عرف التعدى الالكتروتى ؟ 

(ب) ضع علامة (كا) أمام العبارة الصحيحة وعلامة (×) أمام العبارة الخطأء 
(۱) تستخدم (Do .. While)‏ لتكرار كود معين لعدد من المرات غير معروف نهايته.( ) 


(؟) نستخدم الأمر الا لكتابة الملاحظات داخل كود البرامج . Er‏ 

(۳) الثوابت فى لغة 1/8.27 عبارة عن مخازن فى ذاكرة الكمبيوتر لها اسم وقيمة تتغير 
أثناء سير البرنامج . ) ( 

)6( الإعلان عن دالة يبدأ (7 (۴ne0‏ وبنتهى ب (End Function)‏ . ) ( 


أختر الإجاية الصحيحة لإكمال كل عبارة مما يلى ٠‏ 
a 060)‏ اعا الأدوات المكتبية يمكن تصنيفها كبيانات OER A‏ 


[ أ ] رقمية صحيحة [ب].رقمية. غير. صحيحة [ج] حرفية 


3 قصل دراسی ثانى 1 


| اختبارات عام الصف الثالث الاعدادى © الكمبيوتر وتكنونوجيا المعلومات والاتصالات__ 5224© 
(1) الناتج النهائى للمتغير ۷ للمعادلة " 4 * 22-2 = ۷" هو E‏ 

14 [ب] 1 [ج]‎ 80 [i] 
emen جملة الإعلان الصحيحة عن متغير رقمى غير صحيح اسمه ۷ هى‎ )۳( 

Dim Y As Decimal [ Î ] 

Dim Y = Decimal ]ب[‎ 

Din Y As Decimal [+] 
Ê اسم الإجراء بالكود التالى هو‎ )٤( 

Sub ShowOddOrEven (Byval Start As Integer) 

Integer [ج]‎ Start إب]‎ ShowOddOrEven [ Î ] 

(1) أذكر أتواع الوسائط الإلكترونية ؟ ( يكتفى باثتين ) - 
(ب) أجب عن الأسئلة مستعينا بالكود التالى : 

Function XXX (ByVal YYY As Integer, ByVal ZZZ As Integer) 


As Single 
Code 
Return RRR 
End Function 
imei TES اسم الدالة هو‎ )١( 
se maka ak نوع الدالة هو‎ )۲( 


(۳) الوسائط التى تستخدم فى الكود . 
)٤(‏ القيمة الراجعة من الدالة هى a‏ 


آكتب آمام كل عبارة بالعمود (ب) الرقم المناسب من العمود ( أ) : 


العمود (1) العمود (ب) 
Boolean ١‏ أ) | توع من أتواع البيانات الرقمية الصحيحة . 
Byte 1‏ ب) | جملة التكرار لعدد محدد من المرات . 
Const ¥‏ ج) | نوع من أنواع البيانات المتنوعة . 
د ) | نوع من أتواع البيانات الرقمية الغير الصحيحة . 
For .. Next ٤‏ 
ه) | للإعلان عن الثوابت . 


2 ما 
1 قصل دراسى ثاتى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات ‏ + الصف الثالث الإعدادى 


ت ضع علامة (”) أمام العبارة الصحيحة وعلامة (×) أمام الخطأء 
عنام ١‏ ) یکن اذم الرمز & للريط بين القيم النصية ( #5دالهلا 5009 ) . __( ٠‏ ) 
(۲) يمكن الإعلان عن مخزن متغير باسم 660061 ليخزن بداخله نوع الطالب ( ذكر أو 
سق كاي الكود التالى:  ) Dim Gender As Boolean="Male/Female"‏ ) 
(۳) التشهير الإلكترونة (04159ا0) عبارة عن نشر معلومات عن شخص محدد أو أكثر 


بشكل مسيئ . () 
(6) نجموغةا الأواس والتمليسات..الثى يتم وضعها :تحت اسم مين ء ولد تنفيذها: تعود 

بقيمة نطلق عليها إجراء لطبا . (rad‏ 
(5) نستخدم جملة ( 008ا .. 18ا۷ 00 ) لتكرار كود معين لعدد من المرات غير 

معروف نهايته مسبقاً » E‏ 


»( يمكن كتابة الكود التالى: 7 ©15169 85 ۸ ٥1٣‏ للإعلان عن ثايت عددى ياسم ۴ ( ) 
(۷) تستخدم جملة (©88© .. 5616061) عتدما يكون التفرع معتمداً على قيمة متغير واحد 


وهناك شروط كثيرة ٠‏ 3` 6 
)۸( القيمة العددية التى تلى 516 فى جملة (2/6<4 .. )۴١١‏ يمكن أن تكون موجبة أو 
سالبة . GZ}‏ 


أختر الاجاية الصحيحة مما يلى : 
)١(‏ الأمر المستخدم فى كتابة ملاحظات يمكن الرجوع إليها داخل الكود فى لغة ۷8.١٤‏ 
هو: REM [ Î]‏ ]ب[ Comment [e] vbCrLf‏ 

(۲) ناتج تنفيذ الكود For N=] 10 3 Step 0: MsgBox (N) : Nex‏ هو طباعة : 
1أ ] الأعداد من 1 إلى 3 [ب] العدد 1 باستمرار [ج] العدد 3 باستمرار 

(۳) الحصول على تتائج غير صحيحة بعد تشغيل البرنامج يدل على حدوث خطأ نوعه : 
1أ ] لغوی *«املا5 [ب] أثناء التشغيل )”ںا [ج] منطقى ا8عأوه ا 

: هو‎ Ms980× )6 1/00 2( ناتج تنفيذ الجملة:‎ )٤( 


4 [ب] 3 ]ج1‎ Oli] 
: يتم كتابته بعد‎ ) |۴ .. ٦٣۵۸ .. 2515© ( كود تحقق الشرط فى الجملة‎ )( 
Else [ج]‎ Then [o] IF [Î] 


فصل دراسى ثانى |1 


|[اختيارات عام ج الصف الثالث الإعدادى علا الكمبيوتر وتكنولوجيا المعلومات والاتصالات__ 2220© ) 
(1) تجاهل شخص أو أكثر من خلال وسائط إلكتروتية يُطلق عليه : 

[ أ ] الملاحقة الإلكترونية [ب] التخفى الإلكترونية [ج] الاستثناء الإلكترونية 
أكتب المصطلح الصحيح الدال على كل مما يلى : 

5 أحد أنواع البيانات الرقمية الصحيحة الحدد الأآدد و1 قبسو‎ )١ 
255( أحد أنواع لرة لأدنى له (0) والحد الا‎ )١( 
. تعبر عن نافذة النموذج ( 0110 ) الحالية عند كتابتها داخل نافذة الكود الخاصة بها‎ )۲( 
. ۷8.٤٣ (؟) أمر يستخدم فى الإعلان عن الثوايت فى لغة‎ 

. كلمة يبدأ بها الإعلان.عن الدالة ( 0©4100نا2] ) عند إنشاتها‎ )٤( 
, أجب عما يلى مستغيتا بالأكواد التالية‎ 
Dim K As Byte = 1 
Dim M As Byte = 3 0 
RS KF 2 
If K > M Then MsgBox("Egypt") Else MsgBox("Cairo") 
ما هو ناتج الشرط المستخدم فى الكود السايق ( 52156 أم 7006 ) ؟‎ ) 1( 
(ب) بعد تنفيذ هذا الكود سيظهر صندوق رسالة به كلمة ( 9120© أم ملاوع ) ؟‎ 
Dim N , Sum As Integer 
Sum = 0 © 
ForN > 1 To 3 Step 2 


Sum = Sum + N 
Next 


- فى هذا الكود قد تم استخدام المتغير N‏ كعداد للجملة التكرارية أ×Ne‏ .. ۴o۲‏ . 
( أ ) قيمة بداية العداد أو بداية التكرار هى ا 


(ب) قيمة نهاية العداد هى ......ء...... (ج) قيمة زيادة العداد هى sR‏ 
(د.) القيمة النهائية للمتغير "51۳ بعد تنفيذ هذا الكود ستصبح ae‏ 


| ا محافظة الأقصر ` (A EFFE5>‏ | 
| اسؤال الأول: ق ) ضع علامة (۷) آمام العبارة الصحيحة وعلامة (×) أمام الخطاً: 
(١):صوزة‏ الطاب يمن تصديفها من البيانات الحرقية + ۲ 
(۲) التخفى الإلكترونى يعتبر صورة من صور التعدى الإلكتروتى . ) ) 


١‏ 1 فصل دراسى ثانی ف 


الصف الثالث الإعدادى 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات __ >< 
)"( يؤخذ على لغة ۷8.٤۲‏ أنها سمحت للمبرمج الإعلان عن دوال واجراء ات أخرى 


يعدها بنفسه . ) ( 
(4) فى حالة عدم كتابة م516 مع جملة )هلا .. ۴٥۲‏ فهذا ي يعنئ أن قيمة الزيادة واحد 
افتراضياً . ) ( 


(ب) أكمل: الناتج النهائى للمتغير ‏ للمعادلة "2 + (4 / 12) - 16 = ثلا" هو ay‏ 
(1) آختر الإجاية الصحيحة مما بين القوسين : 
( التهديد الإلكترونى - المتغيرات = Do While .. Loop = Select... Case‏ ( 
)0 ...... هى عبارة عن أماكن eT‏ أثرة RAM ( O‏ ) عند الإعلان عنها 
يتحدد لها اسم ونوع وعادة ما تتغير قيمتها أثناء سير البرنامج . 
اا ees‏ د ا سر د لانن 


(4) جملة .... تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وهناك شروط كثيرة. 
(ب) حدد توع الخطأ فى الكود التالى ثم صويهء Din X As Single‏ 
(أ)أجب عن الأسئلة مستعينا بالكود التالى : 


IF X >= 50 Then " يتم إظهار صندوق الرسالة وعليه النص " ناجح‎ )١( 
عندما يكون | :ج15‎ 

(۲) إذا كانت قيمة 50 = × فإن ناتج تنفيذ الكود End IF‏ 
هو 0000000 


(ب) أذكر المفهوم العلمى لكل مما يأتى : 
)١(‏ مجموعة من الأوامر تحت اسم معين ويفضل أن يكون معبراً عن وظيفتها ويتم تطبيقها 
على مدخلات أو وسائط ( 791735061615 ) وتعود بقيمة . 
(۲) نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من خلال أحد وسائط الاتصال 
الإلكترونية . 


قصل دراسى ثائى 1 


الصف الثالث الإعدادى ‏ او الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


| ای محافظة اسوان > <2223ه. ‏ 
ضع علامة (”) أمام العبارة الصحيحة وعلامة (*) أمام الخطأ: 
)١(‏ تمشياً مع قواعد الاستخدام الآمن يُفضل أن تضع كلمة مرور سهلة للبريد الإلكترونى 


الخاص بك حتى تستطيع تذكرها . ) ( 
(۲) الغرض من استخدام الإجراءات ۲۵۴5 ۴۲٥٥٤٥۵1‏ تكرار كتابة كود معين عدة مرات فى 

البرنامج . 1 
(۲) يستخدم أمر "01 فى الإعلان عن المتغيرات . ) ( 
55C۷ )5(‏ يغتبر اسم متغير صحيح ٠‏ ) ( 
)٥(‏ يمكن كتابة جملة ( ۱۴ ) فی سطر واحد بدون ( ۱۴ 500 ) ۔ کد 


5007 | أختر الإجاية المتاسبة لكل مما يلى : 
)١(‏ مجموعة الأوامر والتعليمات التى يتم وضعها تحت اسم وعند تتفيذها تعود بقيمة نطلق 


1 عليها‎ 
Procedure ]ج[‎ Constant [ب]‎ Function [ Î ] 

(۲) الخطأ فى نتيجة حساب أى معادلة يعتبر ھا 
[أ] خطأ لغوى Syntax Error‏ [ب] خطأ منطقی ٤٣٥١‏ اوءزوه-ا 
[ج] خطأ أثناء التشغيل Runtime Error‏ 

(۳) الكلمة المحجوزة م اتستكدام :فى “إنساء«سطراة جدید . 
Rem [ Î]‏ [ب] vbCrLf [5] Me‏ 

)<( .......... الإلكثرونى عبارة عن تجاهل شخص أو أكثر من خلال وسائط إلكتروتية . 
١ [‏ ] التخفى إا الأسكتاء [ج] التهديد 

. المتغير من النوع ....... يستخدم لتخزين الأعداد الصحيحة فقط‎ )٥( 
Decimal ]ج[‎ Double ]ب[‎ Long [أ]‎ 

50 ( أ ) أجب عن الأسنلة التالية مستعينا بسطر الكود التالى : 


("راسب")2ده قاوذالا If X >= 50 Then MsgBox("çجli") Else‏ 
)١(‏ يتم إظهار صندوق الرسالة وعليه النص "ناجح" عندما ERDE‏ 

(؟) إذا كانت قيمة 76 = × فإن ناتج تنفيذ الكود هو ٠...‏ 

(۳) إذا كانت قيمة 49 = × فإن ناتج تنفيذ الكود هو Rea 1 ale‏ 


1 1 فصل دراشى شاتئ 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات علا الضف الثالثالإعدادى 


(ب) أكمل العبارات التائية : 
)١(‏ القيمة النهائية للمتغير ۷ بعد تنفيذ المعادلة التالية " 4 * 2 + 3 = ل " هى : NEES‏ 
)١(‏ عند الاستغناء عن كتابة 5167 فى جملة 07..184 يكون مقدار الزبادة الأقتراضية .. 


اتب امام كل عبارة يالعمود (ب) الرقم المتاسب من العمود (أ) : 


العمود ( أ ) العمود (ب) 
عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر عند 
For ... Next 0‏ أ ) | الإعلان عنها يتحدد لها اسم ونوع وتأخذ قيمة ثابتة لا 


تتغير أثناء سير البرنامج . 
تستخدم عندما يكون التفرع معتمداً قيمة متغير واحد 
؟ | التشهير الإلكتروتى | ب) امه حر تسا 
وهناك شروط عديدة ٠‏ 


تستخدم عندما ترغب فى تكراز كود معين لعدد محدد من 
Case |‏ 1< | €( 3 


المرات . 
3 لتكرار كود معين لعدد من المرات غير معروف نهايته 
ل الثوايت د) 2 
مسبقآا 
عبارة عن نشر معلومات عن شخص محدد أو أكثر 
Do while .. Loop | ®‏ | ه) 


«كاك ‏ محافظة البح الاح <2225 
أ ) ضع علامة (”) مام العبارة الصحيحة وعلامة (×) أمام الخطأ: 
)١(‏ يعد إعلان المتغيرات مسألة شكلية » لأن لغة ۷8.٤۲‏ تتعرف على المتغيرات وتحدد 


الأنواع تلقائياً. ) ( 

)١(‏ يؤخذ على لغة B.N٤7‏ ۷ أنها سمحت للمبرج الإعلان عن دوال وإجراءات أخرى يعدها 
المبرمج ينفسه . لم 

(۳) التعدى الإلكترونية يتم من خلال الؤسائل الإلكترونية » مثل مواقع التواصل الاجتماعى. 
(ti‏ 


قصل دراسى ثانى 1 


(ب) أعد كتابة الكود يعد اكتشاف الأخطاء وتصويبها ليكون ناتج تنفيذه صحيحا 


الصف الثالث الإعدادى ‏ عا الكمبيوتر وتكنولوجيا المعلومات والاتصالات 


Dim N As Integer 
N = Me.Text box 1.Text 
If N Mod 2 =0 
MsgBox (”الرقم زوجى")‎ 
Else 
Msg 80× ("الرقم فردى")‎ 
End if 
(ج أجب عن السؤال التالى يمساعدة الكود: جملة التكرار المستخدمة فى الكود‎ 


Y=2 

Do while y <= N 
Sum = Sum + y 
Y=Y+2 

Loop 

Label3.Text = Sum 


7 0( ) اختر الاجابية الصحيحة مما بین الأقواس؛ 
)0( عندما يكون لدينا كود معين نرغب فى تكراره فى أكثر من موضع داخل التصنيف 


نستخدم الدالة (Argument — Sub — Function) uuu.‏ 
2( .......... تستخدم لاستقبال قيم من خارج الإجراء عتد استدعاء الإجراء . 
(Value — Parameters — Procedure)‏ 
)"( الصيغة الصحيحة للإعلان عن متغير النوع 6672067 هى 200220 


(Dim Gender As Boolean — Dim Gender As Integer — 
Dim Gender As String) 
(ب) آجب عن الأسئلة التالية بمساعدة الكود:‎ 
Dim M As Integer 
For آلا‎ - 117605 
MsgBox (M) 
Next 


)01( يتوقف تنفيذ الحلقة التكرارية عندما تصل قيمة المتغير N‏ إلى AE‏ 
(۲) الكود الذى يتم تكراره هو rer‏ ات 


1 قصل دراسى ثانى هن 


ا 
ل الكمبيوتر وتكنولوجيا المعلومات والاتصالات علو 

: أكمل الجمل التالية يما هو متاسب‎ ) ١١ RE 

1 ا‎ BEE. الإعلان عن الدالة يبدأ ب 6100لا" وبنتهى ب‎ )١( 

(۲) إذا وجد خطأ فى نتيجة حساب مساحة مستطيل فى برنامج » يعتبر هذا الخطأ e‏ 

(۴) الإعلان غن متغير عدد أفزاد الأسرة رانصةC_۴‏ بقيمة ابتداتية 5 هو RS‏ 

eR الناتج النهائي للمعادلة 2 / (2 + 8) - 15 = ۷ هو‎ )٤( 


(ب) أجب عن التاثى بمساعدة الكود: 


الصف الثالث الإعدادى اختبارات عامة 


Dim X As Single 
X = Me. TextBox1. Text 
If X >= 50 Then 
MsgBox = ("ناجح")‎ 
Else 
MsgBox = )"ر"(‎ 
End if 


- إذا كانت قيمة × تساوى 50 فإن ناتج تتفيذ الكود هو 0 


. حدد المختلف هيما يى‎ )١١ RE 
Do - While - Loop - م516‎ )١( String = Single - Byte - Integer )١( 
(ب) أجب عن الأسئلة التاثية بمساعدة الكود:‎ 
Dim degree As Single 
Select Case degree 

Case 0 

Me.Label2.T ext = "صفر"‎ 

Case > 0 

Me.Label2. Text = "تحت الصفر"‎ 

Case > 0 | 

Me.[abê|2.T 6X = "فوق صفر"‎ 

End Select 


.... إذا علمت أن 15 = 060166 » فإن النص الذى يظهر فى 1206/2 هو‎ )١( 
EE ER وهل هو‎ ۲٥6 نوع المتغير‎ )۲( 
(ج) حدثت مشادة كبيرة في حوار بين عمرو وياسمين عبر أحد مواقع التواصل الاجتماعى‎ 
٠ أو غرف المحادثة فغضبا عمرو غضباً شديداً ويعث رسالة تهديد. ووعيد لياسمين‎ 


فصل دراسى ثاتى 11 


ما رأيك فى تصرف عمرو ؟ 


الصف الثانث الإعدادى ) علو 


الكمبيوتر وتكتوثوجيا المعلومات والاتصالات 


EEE‏ ف علامة (”) أمام العبارة الصحيحة وعلامة (×) أمام العيارة الخطأء 
)١(‏ تمشيآ مع قواعد الاستخدام الآمن يفضل أن تضع كلمة مرور سهلة للبريد الإلكترونى 


الخاص بك حتى تستطيع تذكرها . 


6» 


(؟) الكلمة المحجوزة ( ۷0٥٣-۴‏ ) تستخدم فى إنشاء سطر جديد . ) ( 


(۳) ترتيب العناصر داخل الأداة ( “5601 0060© ) له 


ترتيب العنصر الأول صفر . 


ترتیب ( ©1070 ) بحيث يكون 
3 5 


(4) جميع أنواع البيانات الى يتم حفظها فى الذاكرة تشغل نفس المساحة التخزينية.( ) 
)١(‏ الاستثناء الإلكترونى يعنى تتبع شخص معين فى كافة وسائل التواصل الإلكترونية. 

لبي + ) 
)٦(‏ الإعلان عن الدالة يبدأ ب ( 6لا5 ) وینتھی ب ( Sub‏ لمع ) . 0 ( 


** السؤال الثانى ؛ ‏ اجب عن الأستلة التالية » بعد دراسة الأكواد التالية : 


(i) 
Dim X As Single 
X = Me.TextBox1.Text 
IF X >= 50 Then 
MsgBox("gجli"”)‎ 


Else 
MsgBox("سlر")‎ 
End If 
إذا كانت قيمة (49 = >) فإن ناتج‎ )١( 
meee تنفيذ الكود هو‎ 
إذا كانت قيمة (76 = 76) فإن ناتج‎ )۲( 
تنفيذ الكود هو عه مدع سيد متعم حو‎ 


(۳) أعد كتابة الكود الخاص بجملة ۴| 
ليظهر على سطر واحد فقط . 


0 قصل دراسى ثانى 


(ب) 
Function Sum(ByVal First As‏ 
Single, ByVal Second As Single)‏ 
As Single‏ 
Dim Total As Single‏ 
Total = First + Second‏ 
Return Total‏ 
End Function‏ 
)١(‏ نوع البيان الخاص بالقيمة الراجعة للدالة 


اختبارات عامة 


الكود التالى لطباعة جدول ضرب العدد (5) والمطلوب تصويب 
الأخطاء الثلاثة بالكود حتى تحصل على نتيجة تشغيل صحيحة : 


الكمبيوتر وتكنولوجيا المعلومات والاتصالات + الصف الثالث الإعدادى 


Dim N , Product As Integer 
Dim Str As String 
Me. TextBox1.Text =" " 
For N = 1 To 12 Step -1 
Str = 5 & "x" & N & "=" 
Product = 5 + N 
Me.TextBox1.Text = Me. TextBox1.Text & Str & Product & vbCrLf 


Next Str 

RET‏ أختر الإجاية المتاسبة لإكمال كل عبارة مما يلى: 
)١(‏ أسماء المتغيرات التالية صحيحة ماعدا : 

_st_name ) )ج‎ Name )ب(‎ St_name ( Î) 
. (؟) جملة تستخدم عندما يكون التفرع معتمداً على قيمة متغير واحد وهناك شروط كثيرة‎ 

If .. Then ) )ج‎ Select .. Case )ب(‎ For .. Next ( Î) 
E خاص بالأداة ان‎ SelectedlndexChanged الحدث‎ (۳( 

Label ( )ج‎ TextBox )ب(‎ ComboBox ( Î ) 


: الصيغة الصحيحة للإعلان عن متغير باسم ©02320_آ هى‎ )*( 
Dim F_Name As String )ب(‎ Dim F_Name As Integer ( Î ) 
Dim F_Name As Decimal ( )ج‎ 

: يسمى‎ ۷8.٤٣ الخطأ في ناتج تشغيل كود بلغة‎ )٥( 


Syntax Error ( Î )‏ )ب( Logical Error‏ (ج ( Runtime Error‏ 
(5) الناتج النهائى للمتغير لا للمعادلة 2 + 4 / (12 - 16) = ۷ هو: 
94 (ب) 11 (ج)14 


فصل دراسى ثاتى 1 


اودشادات اتتما 


ارشادات نقارين الدروس * 


> القصل الأول #% 


# أسئلة الدرس ص. ١١‏ > | 


السؤال الأول : 

(0)ج )ب عد ()د (°) ج 1)7 
السؤال الثاتى - 

(0 ” "يي XM‏ (4) » زه »د رمع 
(WX‏ < 

السؤال الثالث : 

)١( 1nteger (J) String )١(‏ المحجوزة 
Byte (") Const (°) Boolean (é6)‏ 

السؤال الرابع : 

)١(‏ بحرف أو علامة ( _) (۲) الرموز 
(۳) حروف وأرقام )٤(‏ المحجوزة 


* أسئلة وردت بامتحانات المحافظات ص١٠‏ *] 


السؤال الأول : 

) _( حرف أو علامة‎ )۳( Date )١( Const )١( 
ط‎ )*( Boolean (6) 

السؤال الثانى : 

x<, <M 7 (D O)‏ (ه0) » (0)ي» 

السؤال الثالث : 

AB2018 (") True or False قيمة‎ (1) 
Decimal (6) Byte (؟)‎ 


(#) حرف أو الشرطة السفلى 


# أسئلة الدرس ص٤۲‏ * 1 ]| 


السؤال الأول : 

(0 ج (0) ب () د(4) :د( 501 ع 0 ب 
السؤال الثانى : 

<M » )0( ع«‎ (OM ” )"( ” )0( 

السؤال الثالث : 

Integer (%) String (؟)‎ Single (0) 
Date (°) متغيرات‎ )٤( 

السؤال الرايع : 


. (AutoSize( الخاصية‎ )١( 
نوع بيان الخاصية : منطقية‎ 


(؟) الخاصية (٣tكWi)‏ . 

نوع بيان الخاصية : رقمية صحيحة 
(۳) الخاصية (4<ا©1) . نوع بيان الخاصية : نصية 
السؤال الخامس : 
)١(‏ نصية/حرقية ”51158“ (1) تاريخ “Date”‏ 
(۳) منطقية e2”‏ ا800“ 


(4) رقمية صحيحة “Integer”‏ 


> أسئلة وردت بامتحانات المحافظات ص. ١5‏ ا 
السؤال الأول : 

)١(‏ اسم المتغير: 12263119 » ونوعه : 16و52 
(۲) اسم الثابت: × ء ونوعه : Single‏ 


السؤال الثانى : 

)١(‏ المتتوعة (۲) التخصيص (7) مععع1516 
(؟) Dim (°) Boolean‏ 

السؤّال الثالث : 


فى فى سنا الك لي د الح فى لاك 
> أستلة الدرس ص. 7١‏ #د 

السؤال الأول : 

)١(‏ المتغير(؟) الأيسر ‏ الأيمن (7) = (4) الثابت 


115106 :1200 (۷) الملاحظات 
السؤّال الثانى : 

() د (۲) ب (۳) ج (۶) ۱ (5)د (ك) ب,(۷) د 
السوال ,الثالث + 


vbCrLf (') REM )١(‏ (") الثابيت 
Me )4(‏ (5) المتغير 
السؤال الرايع : 
(OD (DS )5( x )١(‏ 7 رم »ا XD‏ (7) »ا 
)40 
السؤال الخامس : 
)١(‏ إعلان عن متغير باسم Name Student‏ 
من نوع String‏ . 
)١(‏ إعلان عن متغير ياسم Computer‏ 
من نوع عاومزة . 
(۳) إعلان عن تغير باسم 160181 من نوع Byte‏ 
وتخصيص قيمته تساوى ( 0 ) . 


ا ]| الفصل الدراسى الثانى ۱ 


ا 
8 


القاقو إرشادات التمارين واختبارات المجافظات 


(4) تخصيص قيمة خاصية ×1 لأداة صتدوق 
النص ””1عده 19)عره'1”” للمتغير Name_Student‏ 
(5) تخصيص قيمة المتغير 10421 لخاصية "۲٠×‏ 

لأداة العتوان *”11ءطه]"“ . 
(5) تخصيص تعبير حسابى لخاصية ۲٠×۲‏ لأداة 

صندوق النص ”۲e×80×3”‏ . 
السؤال السادس : 
Object (6) Me (F) Byte (¥) String )١(‏ 
السؤال السايع: ( أ) 
Din )۱(‏ خطأ لغوی » التصويب :+ ہ51 
(۲) خطأ لغوى » التصويب : 

Const X As Single = Value 
: ريم خطأ منطقى » التصويب‎ 
Label2.Text = x ¥ Radius ^2 

السؤال الثامن: 
)١(‏ إعلان أسماء المتغيرات وتحديد نوع البيانات . 
(۲) أوامر تخصيص قيم لخصائص أدوات التحكم . 
السؤال التاسع: (*) > )١(‏ > (4) > (") 
السؤال العاشر : )١(‏ 16 (95) 11 


>* أسئلة وردت بامتحانات المحافظات ص ۴٤‏ د 

السؤال الأول : 

()ب ()د ماج 9 )ب 

السؤال الثانى : 

) _( حرف أو‎ )"( Date (۲) Const (°) [|] 

Dim StudentName As String (1) [q] 
Const B_D As Date = #16/5/2003# (¥) 
Dim FirstName. As String = “Hany” (¥) 

السؤال الثالث : 

EN AS OO SOE O‏ 5 لاد 


السؤال الأول : 

CED ESD 7 O 
ODO 7 (0°) x (3) 7 (^) x )8 
x (Wx OD O3) ZZ (DY O 
XOMIT ردم ع ردان‎ ODIO 

× )۲۷( × )١15( ” إثرائى (5؟)‎ )١ 5( إشرائى‎ )١١( 


aE 


< رحن » ركم‎ » (TF) (0. (TA) 

x (TY V (T°) ¥ (FE) x (TY) 

السؤال الثانى : 

(0) ب0)ج أ فق ج دمأ زم بمج ` 
Ov‏ غ001 ا رماب وكام دمج 
)١17(1)55(1)5(1)15(‏ ب (۱۸) إترائى (۱۹) ج 
(۲۰) ب )۲١(‏ ج (۲۲) ب 4195م 1 هلمج 


»* أسئلة عامة على الفصل الأول ص۴۹ *_] 


السؤال الأول: 

O)‏ وقد كم جع OAT‏ وي 
السؤال الثانى: 

Ct )١(‏ (۲) الثوابت والمتغيرات 


(") أثناء التشغيل **2101 “Runtime‏ 


09 U Byte )4( 
Boolean (۸) REM (Y) 
السؤال الثالث:‎ 


.» نر" عرزي »سا (ه)‎ AD x) 
“(%9 =(» x<(@ 7(™ ¥ (™ 
: السؤال الرابع‎ 
. نوعه : خطأ لغوق‎ ٠ ) 115 ( الخطأ قى الأمر‎ )١( 
. الخطأ ( 3 + * ۸ ) نوعه : خطأ منطقى‎ )١( 
» الخطاً عدم تحديد قيمة للثابت‎ )۲( 

نوعه : خطأ منطقى . 
السؤال الخامس : 
05 * بز" متبر() وک _زهانييهم 
* أسئلة وردت بامتحانات المعافظات ص. ١ع‏ #د 
السؤال الأول: )١(‏ 17 
(؟) & (”) الأخطاء اللغوية (4) اليسار إلى اليمين 
)®( قيمة (5) Boolean (^) Byte (¥) String‏ 
)٠١( 21 )5(‏ أخطاء عند التشغيل 
السؤال الثانى: 
لوي E Û 1 EEL‏ ا e BES‏ ان 
إلى 7 x< (%9) 7 (%» 7 @ - (Vv)‏ 
السؤال الثالث: )١(‏ خطأ منطقى (Logical Error)‏ 
Const U_N as String = "Value" (T) 7 )5(‏ 


الفصل الدراسى الثاني 


1 


إرشسادات التمارين والاختبارات 


السؤال الرابع: 
Dim (»)‏ (11)5 )(30 


() الاس 
(5) 24 (5) حرف أو شرطة سفلى (۷) # # 
0) 17 (؟) موث )٠١١(‏ کل ما سبق 
السؤال الخامس: 

5 (6) ES OQ 23A) 
)5( » )5( + )0( + 00 السؤال السادس:‎ 


*# الفصل الثاني * 


السؤال الأول 

يي اراب ع( سد ورم ع 
“(Mv (¥) x (%‏ ( ” (ردلع » 
السؤال الثانى: 

200 )”© 100 (J) 16 () 

السؤال الثالث: 

False والقيمة 50 (؟)‎ Degree )١( 

rue )۳(‏ أو ۴2e‏ _ (4) التعييرات )١(‏ مجردة 
(5) أكبر من أو يساوى End IF )7(  .‏ 


السؤال الرايع: 
X= , ¥= .,2-2‏ 


السؤال الخامس: )١(‏ ج 

0( ب () ج( ب( ركد (/) أ ولاج 
> أسئلة وردت بامتخانات المحافظات ص. +0 ؟#د 
السؤال الأول: 
ON‏ 
السؤال الثانى: 
E) OM 1 HO‏ رمضم 


3 ( 13 “(4 


tm i ES.‏ حوب وا طايه 


السؤال الثالث: 

2) EndIf () 

If, Ehens.. Else f) T IE... Then () 
True (*) 

السؤال الرايع: [ أ [ End If )١(‏ 360 
]ب[ Else )١(‏ .معطا .11 (؟) Mod‏ 
السؤال الخامس: 


DAVOS)‏ ١ر1‏ وددرميمم 


الفصل الدراسى الثانى 


*# أسئلة الدرس ص. 8١‏ # [ 


* أسئفة الدرس. ص6 >« 1 
السؤال الأول: 
رم > ريم عدص x (0x (DTZ JY (9) x‏ 
السؤال الثانى: 


Dim 1+ , area As Single 
Const pi As Single = 22 / 7 

R = Me.TextBox1.Text 
IfR <0 Then 

Msg B0x(ً )”غير مسموح‎ 
Elsê 

Area = 2 *pi*R^2 
MsgBox(“area.of circle =” & area) 
End If 

السؤال الثالث: 116" 


> أسئلة وردت بامتحانات المحافظات ص. وه *# 
السؤال الأول: 

()بج () ب ۳) ب (6)آ 

السؤال الثانى: 

F7 زه)‎ Const (é) ؟‎ (%) False ()Y 0( 

() لا يساوي (۷) 3 

السؤال الثالث: 6 =< 7Z‏ 

السؤال الرايع: 

End (F) MsgBox )5١( Age >16 )١( 
السؤال الخامس:‎ 

FY O XOY ONOSO‏ »رم رس 

x< (9)7 (x (Mx ) 

السؤال السادس: [أ] 

Const B_Date as Date = #20/10/2004# )١( 


۴0٤ط مصر فى مونديال ۲۰۱۸ " = اھ‎ " 22 
Dim A As Decimal (™ 
Const B As Byte = 150 (2 


[ب] (1) 'المتغيرات والثوابت 
F5 6 If... Then... Else )9(‏ 


> أستلة الوزارة #1 
ص13 

السؤال الأول: 9 
)١(‏ تكون قيمة المتغير × أكير من آو تساوى 50 
(؟) إظهار صنندوق الرسالة.وعليه النص "تاجح" 
(*) إظهار صندوق الرسالة وعليه النص "تاجح" 
السؤال الثانى: )١(‏ 0 > × 1۴ 
(۲) ("الرقم موجب")750ع2/]15 


Es 


ECD‏ إرشادات التمارين واختبارات اللحاقظات 


(۳) ("الرقم سالب" )×80 Msg‏ 
السؤال الثالث: 
)١(‏ عرض النص (ناجح) فى صندوق رسالة إذا 
كانت قيمة المتغير × أكبر من أو تساوى 50 . 
(؟) حدث عاعزاك على أداة 1 Button‏ . 
(۳) رقمى عشرى "ع1[عمذ9" . 
(4) نافذة النموذج "جره" الحالية . 
(9) عرض النص (ناجح) فى صندوق رسالة . 
السؤال الرابع: 
)1( "مصر" = IF Country‏ 
)¥( )"صر MsgBox("‏ 
MsgBox("Egypt") (%)‏ 
السؤال الخامس: 
)١(‏ عرض النص (ناجح) فى صندوق رسالة . 
و عرض النص (راسب) فى صندوق رسالة , 
IFX >= 50 Then MsgBox("gşli") Else MsgBox("" 3 3‏ 
السؤال السادس: )١(‏ 
As Long‏ آلا Dim‏ 
N=Me. TextBox1. Text‏ 
IF N Mod 2 =0 Then‏ 
("الرقم زوجى")e12‏ ط14 
Else‏ 
("الرقم فردى")12ع26آ1 
End If‏ 
Dim N As Integer (1)‏ 
السؤال السايع: 
Dim X As Integer‏ 
X = Me. TextBox1. Text‏ 
IF X Mod 2 =0, Then‏ 
("الرقم زوجى")Msg80x‏ 


Else 
2/1575 ("الرقم فردى"):م‎ 
End If 
السؤال الثامن:‎ 
عرض النص (صفر) أو (تحت الصفر) أو‎ )١( 


(فوق الصفر) فئ أداة عنوان ٠12‏ طه] اعتماداً على 
القيمة المدخلة فى صندوق النص "1م80 ره 1". 
(۲) ( تحت الصفر ) . 
)۳( الحدث عإوزإن ‏ الأداة Button]‏ . 
)٤(‏ عددى عشرى "عاومذ "9‏ 


>« أسئلة عامة على الفصل الثانى ص 4" #د 


السؤال الأول : )١(‏ زقم العنصر (؟) & 
(7) شرطين )ئ( True (°) ListBox‏ 
(5) صقر )١(‏ خاصية 


السؤال الثانى: 

OID OTE‏ ارقو 

< ف م 007 4 ®< 

السؤال الثالث: 

1 ] () عرض كلمة (مصر) فى صندوق النص . 

(؟) دالة لإظهار رسالة للمستخدم يجب إدخال قيمة 
عددية بين الصفر و ٠١٣١‏ 

(۳) حذف محتوى أداة صتدوق النص - 

Degree = TextBox1.Text )( [آب]‎ 

(۲) "الاجتهاد طريق النجاح" = Labe12.1ex‏ 

5 

Const B_Day As Date = o 

السؤال الرايع: 

)١(‏ قيمة من تعبير حسابى 

(۲) قيمة من خاصية 

السؤال الخامس: 


(۳) قيمة من متغير 


If (deg1 >= 50) Then 
Me.Label4. Text > ”” ناجح‎ ” 
Else 
Me.Label4. Text = ” راسب‎ ” 
End IF 
السؤال السادس:‎ 
AlFaez4books@gmail.com 


>* أسئلة وردت بامتحانات المحافظات ص.٦٦‏ * 
السؤال الأول: 

ODED) S2‏ (۶)ب () د 
السؤال الثانى: 

x() (OD XD, (SD (VY 
| )۲( السؤال الثالث: »( ب‎ 
السؤال الرايع:‎ 

140 )"”( 50 )١( 30 )١( 
السؤّال الخامسن:‎ 

IDO END. A0‏ (4) و )اد 
السوال السادس: 

Dim X As Single «< الخطأ لغوى‎ (1) 

(؟) الخطأ لغوى » 

Const B_D As Date - # 25/1/2011 # 


False (¢) 


2 القصل الدراسى الثانى ا | 


السؤال السايع: (0) 4 )10 


- اختبار عام )١(‏ مارس ص 1۸ - 
السؤال الأول: )١(‏ أ (۲) د ج 1)0 
()ب ‏ )ب , ,(۷)ب 


السؤال الثانى: 
TOO EOS O (N)‏ الوا 
السؤال الثالث : 
Dim X As Single‏ 
If X >= 50 Then‏ 
(”ناجح“)ا80 Msg‏ 
End If‏ 
السؤال الرايع: 


200(6) True (FJ) 100(% 16() 


¥ اختبار عام (۷) مار س0ا | 


: السؤال الأول‎ 
د روي‎ O) SDS OC) 
السؤال الثانى:‎ 
Dim N As Single 
N= Me.Textbox1.Text 
If (N Mod 2) = 0 Then 
×Ns3980×) (”الرقم زوجى“‎ 
Else 
×Msو8‎ 0×) (”الرقم فردى“‎ 
End If 
السؤال الثالث:‎ 
جملة التخصيص‎ )*( Const )( String )١( 
الأخطاء اللغوية‎ )١( REM (6) 
السؤال الرابع:‎ 
36 (7) 25)"5( 25 (9  24)١( 
] السؤال الخامس:[ أ‎ 


Run time (") Boolean )١( 10 (1) 
Double )5( Integer (®). . vberlf (4) 


] 21 
># الفصل اتثالث 3# 
| # أسئلة الدرس ص ١م‏ # 
السؤال الآول: 
For Counter = 5 To 50 Step 2 (1)‏ 


Fori= 1 To 10 

For X =10 To 2 Step -2 
For Z= 19 10.11 Step -2 
For Y = 21 To 49 Step 7 


| قيمة (1) | قيمة (×) 

9 0 

18 3 

1 36 6 
السؤال الثالث:‎ 
Step (f) 1)5( For...Next (1) [Î1 
22 Counter )١( آب]‎ 

Next (6) 49 40 (۳) 

السؤال الرابع: 


EOE UY) 
“(0% »)4( = x<(W 7 (» 
)١( السؤال الخامس:‎ 

Const BirthDate As Date=#23/4/2014# 
للا‎ 

Dim Country As String='"1 ۰1۸ "مونديال‎ 
Dim A As integer م‎ 
Counter )١( السؤال السادس:‎ 

vbr )۲(‏ (”) أكبر من قيمة النهاية ‏ (4) 3 


> أسئلة وردت بامتحانات المحافظات ص 5/ * 


السؤال الأول: 

956-55 Double (J) -16 )١( 
36 For... Next (®) 

السؤال الثانى: 6 > 27 9 » 12 

السؤال الثالث: 


Dim X , Total As Integer 
For X =1 To 8 Step 2 
Total = Total + X 
Next 


المجموع يعد تهاية الئحلقة‘ MsgBox (Total)‏ 


>*# أسئلة الدرس ص۸۸ ** 
السؤال الأول : 
)١(‏ لم يتم الإعلان عن المتغير × 


الفصل الدراسى الثاتى 


دات_التمارين واختبارات المحافظات 


Sum = 0 
Count = 0 
Dim X As Integer 
Do While ( X < 10 ) 
Sum = Sum + X 
Count = Count + 1 
X=X+1 
Loop 
Average = Sum / Count 
السؤال الثاثى:‎ 
Dim i As Integer = 1 
Do While i <= 10 
MsgBox( i * i) 
i=i+1 
Loop 
السؤال الثالث:‎ 
For M = 20 To 5 Step -5 
Next 
السؤال الرابع:‎ 
Dim X , total , Y As Integer 
total = total + X 
XEXK + 2 
Loop 
Me . Label2 . Text = total 
السؤال الخامس:‎ 
E SO TD TO 
السؤال السادس:‎ 
U Name (6) integer (FJ Do (T) For (1) 
False - True (1) السؤال السايع:‎ 
Select Case (%) Counter (؟) عداد‎ 
Loop )5( Do While .. Loop )ئ(‎ 
] 3> ٩٠ أسئلة وردت بامتحانات المحافظات ص.‎ # 
+ مجموع الأرقام الزوجية من‎ )١( السؤال الأول:‎ 
770181 فى المتغير‎ ٠١ إلى‎ 
True (f) . Integer (F) Dim (¥) 
السؤال الثانى:‎ 
Dim i, Total As Integer 
For i = 1 To 8 Step 2 
Total = Total + i 
Next 
MsgBox ( Total ) 


السؤال الثالث: 
Do While a <= 10‏ 
Sum = Sum + a‏ 
a=a+2‏ 
Loop‏ 
MsgBox ( Sum (‏ 
السؤال الرابع: 


Dim Counter As integer = 2 

Do While Counter <= 10 
Counter = Counter + 2 
MsgBox ( Counter ) 

Loop 


# ٩۷ أسئلة الدرس ص.‎ #* 
السؤال الأول:‎ 
تصتيف (؟١) الإجراء (') 5115 (4) اسم الإجراء‎ )١( 
End Sub «< Sub )5( Function و‎ Sub )©( 
Mode (A) Su الإجراء‎ )۷( 
Step (1°) RAM (û) 
Sub 1جم1012 (؟)‎ )١( السؤال الثانئ:‎ 
Start (6) ShoWOddOrEven (¥) 
End Sub (%) Next و‎ For (°) 
السؤال الكالث»‎ 
OT SONE LOD TOF 
YS (OY MEE) 
السؤال الرابع:‎ 
Sub )"( End Sub الإجراء (؟)‎ )١( 
اسم الإجزاء‎ )9(:. ٠ الإجراء طند5‎ )4( 
] 1[ السؤال الخامس:‎ 
)د‎ 1] ه)0١(‎ 
[ه] كان ")ب )رم‎ 


)ب () ج 


| ># أسثئلة الدرس ص١۲١٠‏ ©« 

السؤال الأول: )١(‏ > (؟) × 
AURAORADEAOR)‏ لين 
السؤال الثاتى: )١(‏ ج (1)5 2 "30 (4)اب 
السؤال الثالث: ShowOddOrEven )١(‏ 
)1( الوسيط Start‏ ونوعه Integer‏ 


الفصل الدراسى الثانى 


Res (؟)‎ Radius )١( Area (1) السوال الرايع:‎ 


)5( (أ)ء )4(« (ع) Single‏ 
السؤال الخامس: 


Function alla () Sub إجراء‎ )١( 


># أستلة الوزارة صن + 82-1١‏ 


السؤال,الأول: 
)١( 811021 - Click (1)‏ متغير ¬ Integer‏ 
M(™)‏ 1-5-1009 4(9 
MsgBox(M ) (1)‏ 
السؤال الثانى: 
)١(‏ طباعة الأعداد الفردية من 5 حتى 9 فى أداة تحكم 
العنوان بشكل رأسى . 
But_Repeat - Click )5(‏ 
)ئ( For ... Next‏ 
Me. Label1. Text = Me. Labell. (°)‏ 
Text & M vbCrlf‏ 
(5) طباعة قيمة المتغير N‏ بجوار القيمة الموجودة فى 
أداة تحكم العنوان 
MsgBox( M ) (¥)‏ 
السؤال الثالث: 
)١(‏ طباعة جدول ضرب (3) فى أداة صندوق النص 
بشكل رأسى (۲) ” (۳) ”و )٤(‏ × (°) ⁄ (1) ب 
السؤال الرايع: 
Dim N, product As Integer‏ 
Dim str As String‏ 
Me. TextBoxl. Text = " "‏ 
For N = 5 To 12 Step 2‏ 
"=" & 2 بق "عد" 86 7= St‏ 
product = 7 *N‏ 
Me.TextBox1.Text = Me.TextBoxl.‏ 
Text & str & product & vbCrLf‏ 


Next N 
End Sub 


Dim (") 


السؤال الخامس: 
Dim N, product As (1)‏ 
Dim str As String‏ 
Me. TextBoxl. Text = " "‏ 


الفصل الدراسى الثانى 


كت 
عط كاج | 


رات 


For N = 1 To 10 KEI (2) 
St = 9 &"x"&N & "=" 
product = 9 N (3) 

Me.TextBox1l.Text = Me. TextBox1. 
Text & str & product & vbCrLf 
Next BÊ (4) 
N (é) * (") Step بدون‎ () Integer )١( 
السؤال السادس:‎ 
(1) str = Num & "x"& M & "=" 
(2) product = Num * M 
(3) Next M 
السؤال السابع:‎ 
)8( طباعة الأعداد من (1) حتى قيمة المتغير‎ )١( 
. )© بمقدار زيادة قيمة المتغير‎ 
)8( قيمة المتغير‎ )4( 1 )۳( 1 
قيمة المتغير (©)- (5) إنشاء إلى سطر جديد‎ )5( 
السؤال الثامن:‎ 
Do While ... Loop )١( 
)1( (؟) إضافة 2 على قيمة المتغير‎ 
نهاية الحلقة التكرارية‎ )( 
)]15480«1( أداة تحكم‎ )4( 
Clear ( ( خاصية (1885) )1( وسيلة‎ )°( 
السؤال التاسع:‎ 
تخصيص قيمة ما يدخله المستخدم فى صندوق‎ )١( 
النص (1762<8031) من خلال خاصية ()عدع7')‎ 
)27( للمتغير‎ 
Do While .. Loop (؟)‎ 
قيمة المتغير (1 ) أقل من أو تساوى قيمة المتغير‎ )۳( 
(N) 
(N) - ([ext8 0x1) أداة تحكم‎ (6) 
السؤال العاشر:‎ 
7 0( ع (5) ع زه)‎ (DTD) x() 
طن يا‎ x(x 6 ف مانن فى انث ىن‎ ( 
x (VY) x (TY ¥ رك لع)عر زه ل‎ )15 
السؤال الحادى عشر:‎ 
ShowOddOrEven )١( 
2(6) Start (") Integer ونوعه‎ Start (") 
السؤال الثاتى عشر:‎ 
Single (؟)‎ XXX () 
RRR (4) ZZZ-—YYY (") 


By 


1 

© أسئلة عامة على الفصل الثالث ص. ١١١‏ #6 أ 
السؤال الأول: )١(‏ < (۲) > (6) × (2) > 
Ven 7 (e)‏ ع زإويزة)” 


المتؤال الثاتى 1x08‏ .1297 = & 8 
مرات تكرار ١‏ قيمة ( ۷ ) | قيمة ()< ) 

13 4 2x9 | 

السوال الثالث: 

REM (Y) VbCrLf (1) 

Item (4) Double (¥) 

Focus (1) Mod (5) 

السؤال الرابع: 


EE E 0)‏ ل ات 
( رمج )أ 0 1( ب 
| # أسئلة وردت بامتحانات المحافظات ص ٠١١‏ © 


السؤال الأول: M=44 1, N=22‏ 
السؤال الثانى: (0) 2 -() 16 (8) 3 ”(5) 3 


السؤال الثالث: 
Dimi, Total As Integer‏ 
For i = 1 To 20 Step 2‏ 
Total = Total + i‏ 
Next‏ 
MsgBox( Total)‏ 
السؤال الرايع: 36 
السؤال الخامس: 
SelectedIndex (¥) Const (1)‏ 
(r)‏ & (؟) Byte (5) Boolean‏ 
السؤال السادس: 
200 ا 0 
)5( 7 (ة) × »( 4 
السؤال السابع: 


لم يتم الإعلان عن المتغير 71 ولم يذكر 
قيمة زيادة قيمة 71 فى التكرار . 
السؤال الثامن: 
Fori = 25 To 5 Step -5‏ 
السؤال التاسع: 
0058-5 


إرشادات التمارين واختيارات المحافظات 


Text = TextBox1. Text‏ . 135611 (؟) 


()TexBox2. Text = TextBox1. Text 


(4)Label3. Text = 5 
(5)Const Birthdate As Date = #1/1/2004# 


- اختبار عام (۳) أبريل ص ۱١٤‏ - 9# 
السؤال الأول: 


If ( 20 > 18 ) Then 
MsgBox( True) 
Elsé 
MsgBox(False) 
End IF 


Counter )؟(‎ Föcus( ) )١( السؤال الثاتى:‎ 
أوامر التكرار‎ )٤( For.. Next (F) 
SelectedIndex (5) 
السؤال الثالث:‎ 

For ... Next (¥) 3 » صفر‎ )١( 

(؟) Else:‏ مه صعط" .= If‏ 

Seleêt :...Case )6ئ(‎ 

٣e )2(‏ إلى أن يصبح الشرط 178196 
السؤال الرابع: 
REE OE 0‏ 
السؤال الخامس: 12 ,4 
السؤال السادش: 

Dim D As Single 


D = Me. TextBox.Text 
If D >= 50 Then 


MsgBox(* (”ناجح‎ 
End If 


3 مم ابربد س دا ه 
السؤال الأول 
N TT ENE ES ETO‏ 
السؤال الثانى: 
(OOD OE O‏ 
السؤال الثالث: 

Fori= 49 To 21 Step -7 
200 (%) 6 )1( السنؤال الرايع:‎ 


الفصل الدراسى الثانى 


إرشادات التمارين والا ختيارات 


السؤال الخامس: )١(‏ 20 )۲( 28 
السؤال السادس: 3)١(‏ (۲) ج (۳)د 9) ج (5) به 


# الفصل الرابع * 
*٭ الدرس الأول ص ١۲۲‏ #د 


السؤال الأول: 
)١(‏ التعدى الإلكترونى )١(‏ الإنترنت 
(۳) التحرش (4) الوسائط الإلكترونية 


1011 البريد الإلكترونى‎ )١( 
المنتديات الإلكترونية‎ )5( 


السؤال الثانى: 

الل ل ا ل 
اك لبود نوا هي 

السؤال الأول: 


URL (ET) AN 
x (1۰) x (4) x (۸) )ع‎ 7(7) 
السؤال الثانى:‎ 

)١(‏ خطأ » يجب وضع كلمة مرور صعبة على الغير 
استنتاجها . 

(۲) خطأ » يجب غدم نشر آي بيانات شخصية حتى 
لا نتعرض للتهديد أو الابتزاز . 

(۳) خطأ » لأنها تتسبب في إصابة الكمبيوتر 
بالفيروسات و برامج التجسس . 

(4) خطأ » يجب عدم الرد أو إرسال رسائل عندما 
تكون غاضباً حتى لا تقع تحت المسائلة القانونية . 
() خطأ » يجب الاحتفاظ برسائل التهديذ كدليل إدانة 
على الشخص المعتذى . 

السؤال الثالث: )١(‏ 

1 ] التعدى الإلكترونى - الاستثناء الإلكترونى 

[ب] أطلب المساعدة من أخى الأكير ‏ 

(۲) - أطلب المساعدة من ولى أمرى 

- أطلب المساعدة من معلم الكمبيوتر . 

- الإبلاغ عنه للسلطات المختصة . 
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> أسئلة عامة على القصل الرابع ص٤١١‏ * 
السؤال الأول: 

)١(‏ الاستثناء (؟) التهديد )١(‏ التشهير 

(4) المضايقات الإلكترونية (2) التعدى الكترونى 
السؤال الثاتى: 

O ORL اي عد اس ان‎ OF 
x (5۰) * (3) 7 (^) 

السؤال الثالث: 

)١(‏ السب أو القذف الإلكترونى 

(۲) التهديد الإلكتروتى 

(۳) التشهير الإلكتروتى 

(2) التخفى الإلكترونى (2) الاستثناء الإلكترونى 
(5) المضايقات الإلكترونية )١(‏ الملاحقة الإلكترونية 
السؤال الرايع: (1)1 (۲) ج 


5 
3 السؤال الأول:‎ 
لع رم« رس‎ TOD) (م»‎ 
السؤال الثاتى:‎ 
For.. Next(), (5)ك<‎  String.() 
Items (°) Focus (5) 
المتغيرات‎ )١( السؤال الثالث:‎ 
Counter العداد‎ )( Select ... Caše (") 
REM (°) جملة التخصيص‎ )٤( 
ue )5( 8 )١( السؤال الرابع:‎ 
Fori =1 To 10 Step 2 (9 


تا * 


السؤال الأول: 

)7(1 .%(* ع 7(9 رمع )7(0 
السؤال الثانى: 

)١(‏ المتغيرات () الثوابت 

(۳) الأخطاء. اللغوية 25 

السؤال الثالث: )١(‏ 45 (5) 29 

السؤال الرابع: (١)ب‏ (5) ج (9)] 


1 ِ ا الفصل الدراسى الثاتى Ê‏ 


إرشادات التمارين واختيارات المحافظات 


د 

السؤال الأول: (1) 

)١(‏ حيز تخزيتى ومدى قيمة 
Syntax error (r)‏ 


False (r) 
Const pi As Single = 3.14 (4) 
Decimal زة)‎ 

2 

Button1 — Click الحدث‎ )١( 

(؟) طباعة مجموع الأعداد القردية من 1 إلى 7 
(؟) For .. Next‏ (؛) المتغير الا - Din"‏ 
(Y) 16 (1) Sum = Sum + M (°)‏ 9 
السؤال الثاتى: (1) 

While (1)‏ .. مم 
(*) الوسائط Parameters‏ 
(4) التعدى الإلعتروتى 

Select .. Case (1) 

< زم * زم‎ (9) *()* (O O) (ه)‎ 
TOT 

السؤال الثالث: 

Rem (6) 12 (") رفص)١(‎ Then (1) 
Clear( ) (V) vbCrLf (1) Mod (°) 
منطقى 109121 (1) الاستثناء الإلكترونى‎ )۸( 
بحرف أو الشرطة السفلى‎ )٠١( 


Function alll (11) 


السؤال الأول: ( أ) 

E EPC NGI) 

)ب( Single )١(‏ (؟) الاستثناء الإلكترونى 
(۳) إنشاء سطر جديد ‏ (4) 3- 

Functions الدوال‎ (=) 

السؤال الثاتى: ( أ ) 

Y = TextBox1.Text (1) 


(۲) التعبير الشرطى 


)وات 


×=13 » 2 مرات التكرار‎ )۲( 
Const M As String = "صر"‎ (r) 
سلوك عدوانى متعمد من شخص لآخر عبر‎ )٤( 
وسائط الاتصال الإلكترونية‎ 
Select .. Case (°) 
ره‎ 
Dim X As Single = 1 
Do While X <= 5 
Msgbox (X ) 
X=X +2 
Loop 
) السؤال الثالث: ( أ‎ 
Parameters الوسائط‎ )١( Boolean (1) 
الإجراء (4) المتغيرات‎ )*( 
False )ك( )1( 11 () 10 )( 14 (؛)‎ 


> (") محافظة: دمباط * 
السؤال الآول: 
)١(‏ الإجراء (؟) vbCrLf‏ (”) مدى Range‏ 


Do .. While (¢)‏ (5) المتغيرات 
السؤال الثانى: 

(ET SO) 

السؤال الثالث: 


Boolean )١( 
Integer )*( 
)1( السؤال الرايع:‎ 
Integer (؟)‎ Button1 )١( 
-2 البداية 20 / النهاية 10 / الزيادة‎ )"( 

Single (؟)‎ Cost )١( (¬) 
Product (4) Price - Quantity )*( 


Select Case (¥) 
التشهير . (5) المنطقية‎ )4( 


)٤( >‏ مخافظة الغربية, * 
السؤال الأول أولا : 
)١(‏ التخفى الإلكترونى - المضايقات الإلكترونية 
- الملاحقة الإلكترونية - السب أو القذف الإلكترونى 
- التشهير الإلكتروؤنى - الاستثناء الإلكترونى 
- التهديد الإلكترونى 


E‏ الفصل الدراسى الثاتى ا | ا 
1 


١1 )۲(‏ ] هو مجموعة من الأوامر والتعليمات 
(©000) تحت اسم معين ٠‏ يمكن استدعاءه بهذا 
الاسم ليتم تنفيذ هذه الأوامر والتعليمات . 

Boolean ]ب[‎ 

Dim (r) Select .. Case (1) ثانيا:‎ 
Do While .. Loop (4) vbCrLf (؟)‎ 
٠١ )١( السؤال الثانى: (أ)‎ 

Syntax Error )"( " (r) 
(ب)‎ 

)١(‏ عرض رسالة (ناجح) (۲) عرض رسالة (راسب) 
السؤال الثالث: 
(O)‏ 0 
RRR (¢)‏ 


(4) حرفية 


(؟) YYY (+) Single‏ < عدج 
End Function (*)‏ 
)١( #‏ محافظة الشرقية جا 
النشؤال الاو( )> (۲) × (۳) ⁄ (6) × )اي 


السؤال الثانى: (أ) 

900 (۲) ثلاثة (۳) اختيارى 
(ب) )١(‏ تظهر رسالة (راسب) (؟) لا يظهر شئ 
السؤال الثالث: (أ) 


تعيين قيمة لمتغير أو لتايت أو لخاصية أداة تحكم 
تتكون من طرفين ييتهما علامة (-) ٠‏ الطرف الأيمن 
مكان القيمة والطرف الأيسر مكان تخزين القيمة . 


For counter = 1.5 To 0.5 Step ا‎ 
MsgBox(counter) 
Next 
) السؤال الرابع: ( أ‎ 


2 ().start )5( ShowOddOrEven (1) 
Do ... While (+) 
Label3.Text = Total (+) 


)١( #‏ محافظة القاهرة” 4د 


السؤال الأول: 
ESE OTA)‏ مه 
السؤال التانى: (1 ) 


OYE رمم لاوم‎ 0 CTE (N) 
(1) TextBox1.Text = "U_Name”" (4) 


إرسادات التمارين والاختبارات 


(2) RadioButton1. ان‎ True 
السؤال الثالث: (أ)‎ 
Do While .. Loop )١( 
. 1 إضافة 2 إلى قيمة المتغير‎ )۳( 
(ب‎ 
50 ا قيمة المتغير × أكبر من أو يساوى‎ 
عدم ظهور أى رسائل‎ )۲( 
) تظهر رسالة ( ناجج‎ )*( 


# (۷) محافظة الأسكتدرية # 


True (¥) 


السؤال الأول 

ATE EO OOO) 
السؤال الثاتى:‎ 

Mod (r) & (۲) Rem (1) 
Procedure (*) For )ئ(‎ 
السؤال الثالث:‎ 

Loop (5) 2)۳( >= (") Dim (1) 


السؤال الأول: (1) 
)١(‏ الإجراء ©:داكهعء576 (۲) التعدى الإلكترونى 
(؟) For ... Next‏ 


(ب) )١(‏ الثوابت (؟) Select .. Case‏ 
السؤال الثاتى: 

TAO OOS OE O) 
السؤال الثالث*‎ 


10 عرض رسالة بالأعداد القردية من 1 إلى‎ )١( 
Integer )4( 10 (؟)ة (”) البداية 1 والنهاية‎ 


السؤال الرابع: 
120 0( =< (۳) الدوال 
)٤(‏ حرفية (5) التشهير الإلكترونى 


# (4) محافظة القليوبية # 


السؤال الآول: 

الى SSC‏ ا ا 
السؤال الثاتى: 

"Egypt" (؟)‎ Me (؟)‎ As (1) 


| ٍْ الفضل الدراسى الثاتى 


ListBox1 (°) MsgBox (4) 
Select .. Case (1) السؤال الثالث:‎ 
procedure (؟) الإجراء‎ 

Do Whi .. Loop )*(‏ (؟؛) التعدى الإلكترونى 


السؤال الرابع: 
)١(‏ الوسائط الإلكترونية (؟) For ... Next‏ 
(*) لغوى () الدوال (2) vbCrLf‏ 

)٠١( #‏ محافظة المنوفية (ب) 4 


السؤال الأول: 

O د ار‎ RA 1 

7 DE 

السؤال الثانى: )١(‏ 51 

Integer - Dim كلمة‎ (r) 

For .. Next )4(‏ › نهاية العداد 10 
وقيمة الزيادة 2 


Start (1) 


(ه) "" = Label1.Text‏ )1( 10 8 
السؤال الثالث: (أ) 
End IF (1)‏ (۲) التشهير 


# # (5) vbCrLf (4) false / True (F) 
(6) < (۳) + (1) < (< )*( (ب)‎ 
3# محافظة أسوان‎ )١١( 2# 
السؤال الأول:‎ 
ب )ج (0)آ‎ )۳( ١ )۲( ب‎ )0( 
السؤال ,الثانى:‎ 
(EDs Dx) 
السؤال الثالث: (أ)‎ 
(1)X>=50 (2) MsgBox (3) End 
لق‎ 
. إعداد كلمة مرور يصعب استنتاجها‎ )١( 
٠ (؟) عدم نشن أى.بيانات خاصة‎ 
السؤال الرابع:‎ 
ب (ه)د‎ )۶٤( ج (۲) ھ (۳) أ‎ 0( 
* محافظة السويس‎ )١؟(‎ > 


السؤال الآؤل: (1) )1١(‏ × (9) ”م (۳) × (4) ¥ 


إرشادات التمارين واختبارات المحافظات 


(ب) )١(‏ المتغيرات )15 
)٤( ۰ ©1855 )۳(‏ منطقى (5) الحرفية 
السوال الثانى: ( أ.) 
Do While .. Loop (1)‏ 
(؟) الدالة Function‏ (۲) <> 

(ب) 
For Counter = 2 To 10 Step 2 (1)‏ 
Dim Salary As Decimal (r)‏ 
Const Pi As Single = 3.14 (¥)‏ 
السؤال الثالث: ( أ ) 
)١(‏ لإنشاء سطر جديد فى نافذة الكود (؟) لآن قيمة 
بداية المتغير العداد أقل من قيمة النهاية . 

(ب) البرنامج الأول : 
)١(‏ إذا كانت قيمة المتغير × أكير من أو تساوي 50 
29 

If X >= 50 Then MsgBox("gجli")‎ Else 

Msg 5 ("راسب"))<اه‎ 


- البرنامج الثانى : 
)١(‏ المتغير ۸ من النوع ,ع وع156ا 
True (¥) i= 1 )۲(‏ 

36 محافظة الاسماعيلية‎ )١( # 
السؤال الأول:‎ 
EEE OSO 
السؤال الثانى:‎ 
vbCrLf )١( Dim Y As Decimal )١( 
التهديد الإلكترونى‎ )*( 
r ... Next (°) Parameters (¢) 
السؤال الثالث:‎ 


)1( الحدث Button2 - Click‏ 
)۲( نوعه Dim — Single‏ 
(۳) نافذة النموذج الحالية 

(4) إظهار رسائة ( ناجح ) 
السؤال الرابع: 
Add (1)‏ 
Sum (r)‏ 


number2 و‎ number1 (0 


x‏ الفصل الدراسى الثانى ا 0ش ا 


إرشادات التمارين والاختيارات 


74 محافظة يور سعيد‎ )١4( # 
السؤال الأول:‎ 
LO E OG) 
السؤال الثاتى:‎ 
Dim F_Name As String (1) 
15 )5( Syntax Error )؟١(‎ 
Const الرقمية الغير صحيحة (ه)‎ )4( 
کل رمارسبئ‎ )1( 
عندما تكون قيمة المتغير × أكبر‎ )١( السؤال الثالث:‎ 
50 من أو.تساوى‎ 
Button1 الأداة‎ - Click الحدث‎ (۲) 
نافذة النموذج الحالية‎ )۳( 
السؤال الرايع:‎ 
(1) Dim M , Product As Integer 
Dim Str As String 
Me. TextBox1. Text = “ “ 
(2) For n= 1 To 12 
Str =9 & “x” &n & “=” 
(3) Product = 9* n 
Me.TextBox1.Text = Me.TextBox1. 


Text & Str & Product & vbCrLf 
(4) Next n 


⁄ )۲( × )١( السؤال الأول:‎ 
ROR ONS AO) 26 


السؤال الثانى: 

(۱) 1 (۲) ب (ك)ب )٤(‏ ب (م)ج (ت)اج 
السؤال الثالث: 

Start (؟)‎ ShowOddOrEven (1) 
2 )5( i )٤( Integer (Fr) 

السؤال الأول: آولاً : 

)1( الدالة Function‏ (۲) الإجراء 


For .. Next (¥) 
(N Mode 2 = 0 ) (1) : ثانيا‎ 


الفصل الدراسى الثانى 


(۲) ("الرقم زوجى") اه 8ن 15لا 

(۳) ("الرقم فردى"') »درهم8 Msg‏ 
السؤال الثانى: أولاً : 
01 

ثائيا : - اسم الثابت Birth Date‏ - 
ونوعه ع6ه6 - القيمة 1/1/2018 

السؤال الثالت: أولاً : 
Button1 (1)‏ (؟) الا 
(") قيمة بداية الحلقة التكرارية 1 وقيمة التهاية 3 
وقيمة الزيادة 2 


ثانیاً: 

REM (”) VbCTIF (۲)  ةيقطنملا‎ )١( 
محافظة القيوم #ا‎ )17( # 

السؤال الأول: 

EAR OE) 

السؤال الثانى: 

Me (r) REM (r) 11 (۱) 

Loop (°) Else (4) 

السؤال الثالت: 

(FO)‏ كد 3S (OT‏ جزم ايك لمعنه 

السؤال الرابع:/(1):: 


- شروط تسمية الثوابت والمتغيرات : 
)١(‏ أن يبدأ اسم الثابت أو اسم المتغير بحرف أو 
علامة الشرطة السفلى (- ) . 

(؟) ألا يحتوى الاسم على أى من الرمز أو العلامة 
الخاصة مثل ( المسافة ٠‏ النقطة وعلامة 

الاستفهام » وعلامة التعجب ٠‏ والشرطة » وعلامة 
الجمع ( 2 ,+ e212‏ ال 
(۳) ألا تستخدم الكلمات المحجوزة للغة ۷8.۸6۲ فى 
تسمية الثوايت. والفتغيرات ٠»‏ الكلمات: المحجوزةمثل 2 

Single , As , Dim , String , Double )‏ .( 
(ب) : 
)١(‏ إظهار رسالة ( تاجح ) . 
(۲) إظهار رسالة ( راسب ) . 


السؤال الأول: )١(‏ البريد الإلكترونى ان٣٤‏ . 
- المنتديات الإلكترونية عومودامه2 . 
- الرسائل القورية Message‏ غصداهما . 
- المدونات الإلكترونية مع ووه81 . 
- مواقع التواصل الاجتماعى › مثل »اهعهطهع22 . 
)"(1[ هى مجموعة من الأوامر تحت اسم معين 
» يفضل أن يكون الاسم معيراً عن وظيفتها » يتم 
تطبيقها على مدخلات أو وسائط (Parameters)‏ 
وتعود بقيمة . 
]ب[ REM‏ 
السؤال الثانى: 
Runtime هسمع)١( [ Î]‏ 
Const Pi As Single = 3.14 (¥)‏ 


(۳) : أقل من × )4( End Select‏ 
اب 
: '"الرقم زوجى"×g80ۋNs‏ 
Else‏ 
"الرقم فردى "×0 8 ن5 ال[ 
السؤال الثالث: 
)١(‏ طباعة جدول ضرب ۳ )١(‏ 166و 
(۳) بداية سطر جديد )¢( or .. Next‏ 
0 


Str= 3 &"x" & n & "=" Product = 3 * n 
Me.TextBox1.Text = Me.TextBox1. 
Text & str & product & vbCrLf 
۲٥×٤8 0×1 حذف محتويات صندوق النص‎ )٦( 
*# محافظة التوفية‎ )١15( # 
السؤال الأول:‎ 
2 - For .. Next (TF) Dim (؟)‎ 
تعود بالباقى الصحيح بعد القسمة د لا تساوى‎ )4( 
4)5( 
¥ (؟)‎ × )١( ] 1 السؤال الثانى:‎ 
CSOD ZOYA > )5( 
[+] 
(1) Const State As Date = #2/1/2019# 


summation (1) 


ارشادات التمارين واخثيارات المحافظات 


(2) SD = TextBox1.Text 
] السؤال الثالث: [ أ‎ 
Rem (") vbCrLf () 10 (۱) 
Do White (1) False (°) السب والقذف‎ )4( 
8 التكرار 4 ء قيمة ز تساوى‎ )۷( 
التعبير الشرطى‎ )۲( Items (1) [] 
Procedure الإجراء‎ )*( 
المضايقات الإلكترونية‎ )4( 


السؤال الأول: 
vbCrLf )١( Me (۱) [‏ (5) 10 
Dim (e) Byte (<)‏ )2(0 


]ب[ )1( الدالة Function‏ 

(؟) خطأ منطقى e٣٣٥‏ ءأوه ا 

(”) المتغيرات )١( ٠١/213165‏ التخفى الإلكترونى 

السؤال الثانى: 

Const N As String = "رصa "تيا‎ (1) [ Î1 

Start (؟)‎ 

(۳) هو سلوك عدوانى متعمد من شخص لآخر عبر 
وسائط الاتصال الإلكترونية . 

Label1.Text = 3.14 * R^2 (؟)‎ 

Select Case (°) 

)١(‏ السب أو القذق الإلكترونى 

N=1, X=4 , Y=9 ]ب[‎ 


ناتج التعبیر الشرطى ©7110" 
السؤال الثالث»: 


5Cairo (") Rem (') 7(Y[Î] 
أى عدد من المرات‎ )٤( 

Do While (7) 

10 )”) 13 (7) 8 (1) I] 


)7١( ©‏ محافظة البحيرة + 


السؤال الأول: )١(‏ × (؟) د(") × )٤(‏ يا (ه) × 


Boolean )5( 


السؤال الثانى: )١(‏ # # (؟) Me‏ 
(") الإجراء Procedure‏ (15)4 


Syntax Error )2( 


Click () Si ءاوہ‎ )١( السؤال الثالث:‎ 


كه الفصل الدزاسى الثاتى | ا أ 


(۳) لإظهار رسالة (راسب) فى صندوق رسالة . 
(4) لإظهار رسالة (ناجح) فى صندوق رسالة . 
X >= 50 (°)‏ 

السؤال الرايع: )١(‏ 1 (۲) 1 (۳) 8 (4) © 


(5) إنشاء من سطر جديد 


# (55) محافظطة كفر الشيخ. *٭* 
السؤال الأوال: 

)عرس » رك" 7( م رمع مه 
السؤال'الثانى: 

“Syntax Error” خطا لغوى‎ )۲( 15 )1١( 
Do While ... Loop (6¢) Const (؟)‎ 
Function الدالة‎ (°) 

السؤال الثالث: ( أ ) 

)١(‏ التشهير الإلكترونى (؟) المتغيرات كعاطها م۷ 
(*) الإجراء Procedure‏ 

X<0 (1) 

(؟) إظهار رسالة (العدد موجب) فى صندوق رسالة 

(۳) إظهار رسالة (العدد سالب) فى صندوق رسالة 

السؤال الرابع: 
Dim N, product As String] (1)‏ 
Dim str As String‏ 
Me. TextBox1l. Text = " "‏ 

For N = 1 To 10 SEDI «2) 
st = تنه "عد" هع‎ & "=" (3) 
product = 9 *N 

Me.TextBox1 .Text = Me.TextBox1. 

Text & str & product & vbCrLf 

Next Bî (4) 


N(6é) 9 )*( Step بدرن‎ () Integer (1) 


هد 


ot 


# (7) محافظة القا 
السؤال الأول: 
(OTO) (OR) * "(6 )1(‏ 
السؤال الثانى: ( أ ) (5) vb C1۴‏ 
(؟) 2- For M = 18 To 8 Step‏ 
)٤( Const )*(‏ 16 (ه2) منطقی (5) 009 


الفصل الدراسى الثانى 


)130 9% 157 
السؤال الثالث: 

Dim D As Boolean )١( 
ShowOddOrEven(2) )"( 
الاستثناء الإلكتروتى‎ )*( 

(؟) حرقية "ومزعع" 


># (۲) محافظة الجيزة : + 


True (¢) 


السؤال الأول: 

)١(‏ الرقمية (؟) المضايقات الإلكترونية 
IF .. Then (¢) Start Debugging (¥)‏ 
(5) علامتى # # 

السؤال الثانى: 

HE) F7 (J7 (O) OAD TO) 
السؤال الثالث:‎ 

2 (*) 10 (4) Start )"( Integer (") i(1) 
: السؤال الرابع: أولاً‎ 

Byte (۲) التعبير الشرطى‎ )١( 


(۳) الوسائط الإلكترونية مثل البريد والمنتديات 
والمدونات الإلكترونية . 
ثانیاً : Dim F_Name As String‏ 


السؤال الأول: 

0١‏ > ا ا ا 

السؤال الثانى: 

Rang المدى‎ )١( 
Select .. Case (¥) 
الثابت‎ )5( 

السؤال الثالث: 

vbCrLf )١( Function (1)‏ 
(۳) التخفى الإلکترونی )٤(‏ 7 (5) )هه54.76 
السؤال الرابع: ( أ) 


)1( الإجراء Procedure‏ 
)٤(‏ التعدى الإلكترونى 


IF (X >= 50 ( Then 
MsgBox( ”ناجح“‎ ( 
End If 
i= 0 (ب)‎ 
Do While i <= 0 
Me.TextBox1.Text = Me.TextBox1. 
Text & i & vbCrLf 
i=i-2 
Loop 


346 محافظة القليوبية‎ )55( # 
F .. Then .. (؟)عواع‎ 4)١( السؤال الأول:‎ 
Do While .. Loop (¢) 13 )5( 

(ه) التخقى الإلكتروتى )1( Const‏ 

)١( السؤال الثانى:‎ 
For i = 13 To 5 Step -2 
Next i 
Dim X As Boolean (") 
Function DDD(ByVal) As Double (¥) 
Z = TextBox1.Text (0 
Start (1) Number (۱) السؤال الثالث:‎ 
10.8, 6 )6( Short (؟)‎ 

السؤال الرابع: )١(‏ خطأ منطقى e٣٥۵‏ ءأوه ا 

Function المتغير عاطواءولا ("*) الدالة‎ )١( 


Select .. Case (5) vbCrLf (¢) 
جملة التخصيص‎ )١( 

# (۲۷) محافظة الإسماعيلية 36 
السؤال الأول: 


> (O عدره)‎ (ODS (DO) 
مواقع التواصل الإجتماعى‎ )١( السؤال الثانى:‎ 

(؟) الإجراء (*) 2306ت_ 6‏ (4) متطقى 
Do while .. loop (1) REM (°)‏ 

السؤال الثالث: 

65 (°) 130 (4) True (F) 40 )5( 90 (1) 
For i = 1 To 10 Step 2 (1) : السؤال الرايع‎ 
For i = 2 To 10 Step2 (TY) 
Dim X As Single (¥) 


۴ (۲۸) محافظة بتى سويف © 
السؤال الأول: (و (FT) ¥ (Yr‏ ¥ )4 ( ۷ 
يلين 5) ” (؛) *)( 
)۱( 10 (؟) MsgBox("Egypt")‏ 
(") السب أو القذف الإلكتروتى 
)١( Do While .. Loop )٤(‏ خطأ لغوى 
السؤال الثالث: ( أ ) Dim XAs Single‏ 

X = Me.TextBox1.Text 
If X >= 50 Then 
MsgBox(" (”تاجح‎ 
End IF 


إرشادات التمارين واختبارات المحافظات 


(ب) )١(‏ التعدى الإلكترونى 


, Do While ... Loop )*( الثوايت‎ )١( 
showOoddorEven (1) السؤال الرايع:‎ 
2) Integer نوعه‎ — Start (؟)‎ 
10,8. 6)( 
+ محافظة سوهاج‎ )۲۹( #* 
) السؤال الأول: ( أ‎ 
* (7) 7 ره)‎ ¥ (6) ¥ (F) x (Y) * (0) 
) 1 ( السؤال الثانى:‎ 


)١(‏ الثوابت عبارة عن أماكن محجوزة فى ذاكرة 

الكمبيوتر ”7,511 “ . لها اسم ونوع وقيمة ثابتة لا 

تتغير أثناء سير اليرتامج . 

(۲) يستخدم المبرمج الأمر 1912101 فى كتابة 

ملاحظات داخل الكود يمكن الرجوع إليها عند الحاجة 

ولا يتم ترجمتها. 

(ب) )١(‏ إظهار صندوق رسالة عليه النص "ناجح" 
(۲) إظهار صندوق رسالة به النص "راسب" 

السؤال الثالث: 

(0)ج (۲) د (۳) ب 1)٤(‏ 

السؤال الرايع: 

(0)ج (5)ب (۳) ب (4) ج (ه) ب رت)اج 


)"١( #‏ محافظة مطروح #6 
السؤال الأول 
(F) * () * (1)‏ ” (4)* (ه) > 
السؤال الثانى: 
E_Sddress )١(‏ 
Runtime Error )*(‏ 
)ئ( vbCrLf‏ 
السؤال الثالث: ( أ) 
)١(‏ جملة التخصيص (؟) المتغيرات عهادة:ةلا 
String (1) (4)‏ (؟) Const (F) IF .. Then‏ 
السؤال الرايع: ( أ ) )١(‏ 16 (۲) الثوابت 
(ب) Single )١(‏ (؟) نافذة النموذج الحالية 
() إظهار صندوق رسالة به كلمة "ناجح" 


)۳١( ©‏ محافظة شمال سينا 36 
السؤال الأول: ( أ ) هو سلوك عدوانى متعمد من 
شخص لآخر عبر وسائط الاتصال الإلكترونية. 
)ب( )1( 7 () ”(”) x‏ )5( » 

السؤال الثانى: )١(‏ ب (؟) ج (*) أ 1)٤(‏ 
السؤال الثالث: ( أ ) 
)١(‏ البريد الإلكترونى (؟) المنتديات الإلكترونية 


(؟) رقمية غير صحيحة 


Select Case (°) 


1 الفصل الدراسى الثانى 1 


ارسادات 
(*) الرسائل القورية (4) المدونات الإلكترونية 
(5) مواقع التواصل الاجتماعى 
(ب) )١(‏ 00€ (؟) Single‏ 
RRR (£4) YYY - 222 (FY)‏ 


السؤال الرايع: )١(‏ ج (5) 1 (۳) ه (4) ب 


# (۳۲) ابناتنا فى الخارج # 
السؤال الأول: )١(‏ ” (؟) يه 
(95) ” (ك) * )°( 7 (5)» )( ¥ (A)‏ » 
السؤال الثانى: 
()() ب كاج )أ (9) ب )٩(‏ ج 
السؤال الثالث: 
Function (4) Const (") Me () Byte (1)‏ 
السؤال الرابع: )١(‏ ( أ ) seا۴a‏ )ب( Cairo‏ 
(e) 3(1 (Î) )":‏ 2 )4)۵ 


# (") محافظة الأقصر # 


السؤال الأول: 

)1( )( *)( 7 )(* )©( < (ب) 15 
السؤال الثانى: ( | ) 

Do While .. Loop )١( المتغيرات‎ )١( 
Select .. Case (¢) التهديد الإلكتروتى‎ )۳( 


(ب) خطأ لغوى ٠‏ التصويب: 510016 Dim × As‏ 
السؤال الثالث: ( 1 ) )١(‏ جواب الشرط عد7 
(؟) إظهار صندوق رسالة عليه النص "ناجح" . 
(ب) )١(‏ الدائة Function‏ 

(؟) السب أو القذف الإلكترونى 


۴ (4”) محافظة أسوان ¥ 
السؤال الأول: )١(‏ × (؟) × (۳) ” )٤(‏ × (ه) ۷ 
السؤال الثانى: 
() 1( )+ (۳) ج )برهأ 
السؤال الثالث: ( أ) _ 
)١(‏ عندما تكون قيمة × أكير من أو تساوى .١ه‏ 
(۲) إظهار صندوق رسالة به كلمة "تاجح" 
(؟) إظهار صندوق رسالة به كلمة "راسب" 
(ب) )١(‏ 11 (۲) موجب 1 
السؤال الرايع: )١(‏ ج (۲) ۰ (۳) ب (4) أ (5) د 


# (ه) محافظة البيحر الأحمر ##ا 


السؤال الأول: ( أ ) )١(‏ × (۲) × (۳) ⁄ 


ارشادات التمارين والاختبارات اتر 


(ب) 
Dim N As Integer‏ 
N = Me.Textbox1.Text‏ 
If N Mod 2 =0 Then‏ 


Msg 80×) (”الرقم زوجى“‎ 
Else 
×Nءو‎ 80×)“ (”الرقم فردی‎ 
End If 
End Sub 
1 Do while ... Loop (+) 
] السؤال الثانى: [ أ‎ 
Parameters (؟)‎ Sub (1) 


Dim Gender As Boolean (") 

MsgBox (M) (؟)‎ 6 )1١()ب(‎ 

السؤال الثالث: [ أ ] 

End Function (1)‏ (۲) خطأ متطقی 

Dim C_family As Integer = 5 (") 

10 (٤( 

(ب) عرض "ناجح" داخل صندوق رسالة 

Step (') String (^) ] Î ] السؤال الرايع:‎ 

(ب) )١(‏ فوق صفر (۲) رقمى عشرى 

(ج) تصرف متسرع › يجب ألا تبعث رسائل لأى 
شخص وأنت غاضب . 


# (5") محافظة الوادى الجديد #6 


السؤال الأولى: 
x (1) x (°) » (6) ”)"( ¥ (1) * (1)‏ 
السؤال الثانى: ( أ ) )١(‏ إظهار رسالة ( رإسب ) 
(۲) إظهار رسالة ( ناجح ) 
2( 
)"liجg IF X >= 50 Then MsgBox('‏ 
("راسب")»اه8 Else Msg‏ 
)ب( )1( First , Second (J) Single‏ 
السؤال الثالث: 
For N =1 To 12‏ 
Str = 5 & "x" & N & "="‏ 
Product = 5 * N‏ 
Me.TextBox1.Text = Me. TextBox1.‏ 
Text & Str & Product & vbCrLf‏ 
Next N‏ 
السؤال الرابع: 
(0)ب (۲) ب (۳) 1 (£) ب (0)ج (7) ۱ 
أطيب التمنيات بدوام التوقيق 
أسرة سلسلة كتاب الفائز 


1 القصل الدراسى الثانى E‏ 


